<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("..\..\data\adcm.mdb")
'Conn.ConnectionString = "Data Source=" & Server.MapPath ("..\data\adcm.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from Registration WHERE ID=" + Request.QueryString, Conn, 1,3
%>
|
Date Registered: |
<% Response.Write rs("DATEREGISTERED") %>
|
|
Client’s Information |
|
Name: |
<% Response.Write rs("NAMEINCHARGE") %>
|
|
Designation: |
<% Response.Write rs("DESIGNATION")%>
|
|
Institution: |
<% Response.Write rs("CENTRENAME")%>
|
|
Sector: |
<% Response.Write rs("SECTOR")%>
|
|
Others : |
<% Response.Write rs("SECOTHERS") %> |
|
Discipline: |
<% Response.Write rs("DISCIPLINE") %> |
|
Others : |
<% Response.Write rs("DISOTHERS") %> |
|
Contact Details: |
|
Address: |
<% Response.Write rs("ADDRESS")%>
|
|
Postal Code: |
<% Response.Write rs("POSTALCODE")%> |
|
City/Town: |
<%= replace(rs("TOWN"),vbcrlf,"
")%>
|
|
State: |
<% Response.Write rs("STATE")%>
|
|
Telephone No: |
<%
Response.Write rs("TEL1")
If Len(rs("TEL1"))<>0 Then
Response.Write "-"
End If
%>
<%
Response.Write rs("TEL2")
%>
|
|
Fax No: |
<%
Response.Write rs("FAX1")
If Len(rs("FAX1"))<>0 Then
Response.Write "-"
End If
%>
<%
Response.Write rs("FAX2")
%>
|
|
Handphone No: |
<%
Response.Write rs("MOBILE1")
If Len(rs("MOBILE1"))<>0 Then
Response.Write "-"
End If
%>
<%
Response.Write rs("MOBILE2")
%>
|
|
Email Address: |
<%
Response.Write ""
Response.Write rs("EMAIL")
%>
|
| |
<%
dim formAction
formAction = "deleteRecord.asp?" + Request.QueryString
%>
