% Dim subpage Dim mainlanding Dim cnnSimple99 Dim rstSimple99 Dim pgtitle Dim pgcontent subpage = trim(Request.QueryString("detail")) If subpage = "" Then subpage = "courses" response.redirect "http://www.iitrade.ac.in/courses.php" else response.redirect "http://www.iitrade.ac.in/courses.php?detail=" & subpage End if Set cnnSimple99 = Server.CreateObject("ADODB.Connection") cnnSimple99.Open strConnString Set rstSimple99 = cnnSimple99.Execute("select * from mainsitedata Where pgidentifier='"& subpage &"'") rstSimple99.Movefirst pgtitle = trim(rstSimple99.Fields("pgtitle").Value) pgcontent = trim(rstSimple99.Fields("pgmatter").Value) pgcontent = Replace(pgcontent, "`", "'") rstSimple99.Close Set rstSimple99 = Nothing cnnSimple99.Close Set cnnSimple99 = Nothing %>