 |
 |
 |
 |
 |
 |
<% Dim Con Dim ressql Set Con=Server.CreateObject("ADODB.Connection") Set res= Server.CreateObject("ADODB.Recordset") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "/tsunamidata.mdb;Persist Security Info=False;" 'ressql= "SELECT * FROM institution" res.Open "institution", Con %> <% if res.EOF then Response.Write ("") response.write " No Records Found...Please Try Again After SomeTime." Response.Write ("") response.End end if %>
") Response.Write ("") Response.Write ("") Response.Write res("insname") Response.Write (" ") response.write (" | ")
res.movenext
end if
if not res.EOF then
Response.Write ("") Response.Write ("") Response.Write ("") Response.Write res("insname") Response.Write (" ") response.write (" | ")
res.movenext
end if
wend
res.close
set res=nothing
%>
