<%
Dim conn
Dim SQL
Dim R
Dim F
Dim RecsAffected
Dim aConnectionString
Dim CName
Dim Email
Dim Country
Dim Tel
Dim Church
Dim Web
Dim Heard
Dim Msg
Dim CrDate
aConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\Mizar.mdb"
' & User Id=admin;Password="
Set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = 1
conn.ConnectionString = aConnectionString
conn.open
SQL = "SELECT *FROM Message where Del_Flag='N' ORDER BY ID desc "
Set R = Server.CreateObject("ADODB.Recordset")
R.Open SQL, conn
%>
<%
while not R.EOF
CName = R("Contact_Name")
Email = R("Email_ID")
Country = R("Country")
Tel = R("Telephone")
Church = R("Church")
Web = R("Web")
Heard = R("Heard")
Msg = R("Message")
'CrDate = R("Created_Date")
CrDate = R("Posted_Date")
%>
<%
Response.Write "| Comments by : "& CName & " On: " & CrDate & " | "
Response.Write " | "
Response.Write "Message:
"& Msg & " | "
Response.Write " | "
Response.Write " | Country: " & Country &" Refered by: " & Heard &" Website: " & Web &" | "
Response.Write " | "
Response.Write ""
R.MoveNext
Wend
R.Close
set R = nothing
conn.Close
set conn = nothing
%>
|