<% 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 %> <%= pgtitle %>
Courses



<% Dim cnnSimple42 Dim rstSimple42 Set cnnSimple42 = Server.CreateObject("ADODB.Connection") cnnSimple42.Open strConnString Set rstSimple42 = cnnSimple42.Execute("select pgtitle, pgidentifier from mainsitedata where pggrouping='certificate-course'") %> <% Do While Not rstSimple42.EOF %> "><%= trim(rstSimple42.Fields("pgtitle").Value) %>

<% rstSimple42.MoveNext Loop rstSimple42.Close Set rstSimple42 = Nothing cnnSimple42.Close Set cnnSimple42 = Nothing %>

<% Dim cnnSimple4 Dim rstSimple4 Set cnnSimple4 = Server.CreateObject("ADODB.Connection") cnnSimple4.Open strConnString Set rstSimple4 = cnnSimple4.Execute("select pgtitle, pgidentifier from mainsitedata where pggrouping='grad-course'") %> <% Do While Not rstSimple4.EOF %> "><%= trim(rstSimple4.Fields("pgtitle").Value) %>

<% rstSimple4.MoveNext Loop rstSimple4.Close Set rstSimple4 = Nothing cnnSimple4.Close Set cnnSimple4 = Nothing %>

<% Dim cnnSimple2 Dim rstSimple2 Set cnnSimple2 = Server.CreateObject("ADODB.Connection") cnnSimple2.Open strConnString Set rstSimple2 = cnnSimple2.Execute("select pgtitle, pgidentifier from mainsitedata where pggrouping='postgrad-course'") %> <% Do While Not rstSimple2.EOF %> "><%= trim(rstSimple2.Fields("pgtitle").Value) %>

<% rstSimple2.MoveNext Loop rstSimple2.Close Set rstSimple2 = Nothing cnnSimple2.Close Set cnnSimple2 = Nothing %>

courses
Course Enquiry:
Name

Email Id

Contact Number

City

Course / Area of interest


<%= pgtitle %>
<%= pgcontent %>