Jag har total nollkoll men borde inte:
if error = 0 and Status = ok Then
vara:
if error = "0" and Status = "ok" Then
------------------
/solbulle
Hemmabio | Spelautomater | The Who
Frågan#1
Ingenting gör som det ska, inget mail skickas inga saker läggs in i databasen *argh*
<!-- #include file="adovbs.inc" -->
<%
Dim Status, epost, pass, error, Connect, Addera, CDOMAIL
Status = Request.Querystring("status")
If Status = "ok" Then
epost = Request.Form("epost")
pass = Request.Form("pass")
error = 0
If epost = "" Then
error = 1
End If
If pass = "" Then
error = 1
End if
if error = 0 and Status = "ok" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\xxx\databasen.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM str_data"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("epost") = epost
RecSet("pwd") = pass
RecSet.Update
RecSet.Close
Connect.Close
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "lennart@stockticket.com"
CDOMail.To = epost
CDOMail.Subject = "Hej, du är registrerad bla bla bla"
CDOMail.Body = "_____________" &vbcrlf& "Användarnamn:" & epost &vbcrlf& "Lösenord: " &pass
CDOMail.Send
Set CDOMail = Nothing
%><html>
<head>
<title>Bli medlem</title>
</head>
<body>
<font face="verdana" size="2" color="black">Grattis du är nu medlem, dina användaruppgifer har skickats till din epostaddress</font>
</body>
</html><%
Else
%><html>
<head>
<title>Bli medlem</title>
</head>
<body>
<center>
<%If error = 1 then %>
<font face="verdana" size="2" color="Red">Du glömde att fylla i något där</font>
<%End if%>
<form method="POST" action="ny_medlem.asp?status=ok">
<font face="verdana" size="2" color="black">Epostadress</font><img src="pixel.gif" alt=" " width="10" height="1"><input type="text" name="epost" size="20"><br>
<font face="verdana" size="2" color="black">Lösenord</font><img src="pixel.gif" alt=" " width="30" height="1"><input type="text" name="pass" size="20"><br>
<input type="submit" value="Skicka" name="Skicka">
</form>
</center>
</body>
</html>
<%End if%>
[Redigerat av RDL den 20 jan 2002]
[Redigerat av RDL den 20 jan 2002]
