Database Query Question
I'm having issues with this Script. It works great on my machine connecting to a third party SQL hosting service but once I upload it to my Web Hosting service it no longer works. The Web Hosting service says it is something in this script. Any Ideas? I basically got this script from my WROX Beginning ASP 3.0 Book.
Thanks,
Ken Buska
<%
Option Explicit
%>
<html>
<head>
<Title>Email Offers Query</Title>
<link href="../global.css" rel="stylesheet" type="text/css">
<body>
<%
dim adOpenForwardOnly, adLockReadOnly, adCmdTable, strConnect, objConn, objRS, strQuerystring
strQuerystring = Request.QueryString("user")
adOpenForwardOnly = 0
adLockReadOnly = 1
adCmdTable = 2
strConnect = "Provider=sqloledb;" & _
"Data Source=<ServerName>;" & _
"Initial Catalog=db1559;" & _
"User Id=dba1559;" & _
"Password=<password>;"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.Open strConnect
objRS.Open "Email_Offers", objConn, adOpenForwardOnly, adLockReadOnly, adCmdTable
%>
<table "border=1"><tr><td class="survey">Email Address</td><td class="survey">Date & Time Submitted</td></tr>
<%
While Not objRS.EOF
Response.Write "<TR><TD class=selectviewtext><a href=mailto:" & objRS("Email_Address") & ">" & objRS("Email_Address") & "</a></TD><TD class=selectviewtext>" & objRS("Date_Time") & "</TD></TR>"
objRS.MoveNext
Wend
%>
</body>
</head>
</html>
|