%@ LANGUAGE="VBSCRIPT" %> <% pageTitle = "Alumni - A free service of OnlineNigeria.com" %> <% On Error Resume Next if not isempty(Request.Form("Delete")) then set conn = server.createobject ("adodb.connection") conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=10.25.121.130,1433; DATABASE=OnlinenigeriaAlumni;USER ID=AlumniNaija;PASSWORD=m1q0geg33" conn.Execute "delete from alumni where ItemID = " & Replace(Request.Form("ItemID"),"'","''") _ & " and P_pass = '" & Request.Form("Password") & "'" %> <% if Err.number = 0 then 'All is well with the world %>
<% else %>