Online Certificate Verification
<% if (objRs.Recordcount<>0) then %>VALID
<% END IF %> <% if (objRs.Recordcount=0) then %>INVALID
<% END IF %>Student Verification:
% Dim Conn, id, entid Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("green.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};pwd=4553030" Dim objRs_hotnews Dim objRs,objRs_subjects,ps Set objRs=Server.CreateObject("ADODB.Recordset") 'creating a recordset with the name objRs Set objRs_hotnews=Server.CreateObject("ADODB.Recordset") 'creating a recordset with the name objRs Set objRs_hotnews=Server.CreateObject("ADODB.Recordset") 'creating a recordset with the name objRs Set objRs_subjects=Server.CreateObject("ADODB.Recordset") 'creating a recordset with the name objRs Set objRs_course=Server.CreateObject("ADODB.Recordset") 'creating a recordset with the name objRs Dim sid, sname, vtype vtype=Request("vtype") sid=Request("stu_no") sname=Request("stu_name") 'if sid="" then 'Response.Redirect("invalid.asp") 'end if Dim vname 'if vtype="Certificate" then vname="Student Certificate" objRs.Open "SELECT student_verification.sid, student_verification.first_name, student_verification.last_name, student_verification.country, student_verification.course_id, student_verification.course, student_verification.level, student_verification.standard, student_verification.duration, student_verification.completion_date FROM student_verification WHERE (((student_verification.sid)='" & sid & "'))",Conn,3,3 'end if Dim sample if sid="S11/AUS" then sample=" - Sample" end if %>
No: 22/2, Station Road,
Dehiwela, Sri Lanka
+94-114-383-498
Student Verification: