ASP: Nyhedsbrev problemer
Kære Eksperter (nok mest ellebak og thesurfer jf tidl. spm).Jeg har nu følgende asp-kode (i filen nyhedsbrev.asp):
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta name="" content="">
<title>Nyhedsbrev - tilmelding</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<link REL="StyleSheet" HREF="style.css" type="text/css">
</head>
<body>
<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;"_
&"DATABASE=kommuneanalyse_;UID=kommuneanalyse_;PWD=XXXXXX;"
objConn.Open
objRS.Open "SELECT * FROM signups", objConn, 3,3
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
if request.form("tilmeld") <> "" then
'har brugeren trykket på tilmeld?
navn = replace(request.form("navn"), "'", "")
email = replace(request.form("email"), "'", "")
sql = "SELECT * FROM nyhedsbrev WHERE navn = '"&navn&"' AND email = '"&email&"'"
set rsTest = rs.execute(sql)
'tjekker om brugeren allerede er tilmeldt.
if not rsTest.eof then
'brugeren er allerede tilmeldt.
response.write "Du er allerede tilmeldt."
else
'brugeren er ikke tilmeldt, så gemmer hans oplysninger i databasen.
sql = "INSERT INTO nyhedsbrev(navn, email) VALUES('"&navn&"','"&email&"')"
rs.execute(sql)
response.write "Du er nu tilmeldt nyhedsbrevet."
end if
elseif request.form("afmeld") <> "" then
'er der trykket på afmeld?
navn = replace(request.form("navn"), "'", "''")
email = replace(request.form("email"), "'", "")
sql = "DELETE FROM nyhedsbrev WHERE navn = '"&navn&"' AND email = '"&email&"'"
rs.execute(sql)
response.write "Du er nu afmeldt nyhedsbrevet."
else
'der er ikke udfyldt noget i formen, og den vises derfor.
response.write "Der skete en fejl"
end if
%>
</body>
</html>
Jeg har følgende html-kode i min default.html:
<div class="leftmain">
<div class="overskrift2">Nyhedsbrev</div></p>
Vi udsender et nyhedsbrev hver måned. Du kan tilmelde dig her.
<form action="nyhedsbrev.asp" method="post">
<fieldset>
<div>
<label for="t1">Navn:</label><input type="text" name="navn" id="t1"></p>
<label for="t2">E-mail:</label><input type="text" name="email" id="t2"></p>
</div>
<div>
<label for="t3">Vælg:</label>
<input type="submit" value="Tilmeld" id="submit" name="tilmeld">
<input type="submit" value="Afmeld" id="submit" name="afmeld">
</div>
</fieldset>
</form>
</div></br>
Det giver denne fejlmeddelelse:
Error Type:
Sun ONE ASP VBScript runtime (0x800A01A8)
Object required: 'rs'
/nyhedsbrev.asp, line 35
Linje 35 =
set rsTest = rs.execute(sql)
PLEASE HELP...
Venligst
Thue
