RDLMedlem sedan mars 2001344 inlägg 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]
solbulleMedlem sedan mars 20015 287 inlägg 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
@ndersMedlem sedan juni 200032 969 inlägg Du har missat citationstecken runt ok:
if error = 0 and Status = [b]"ok"[/b] Then
Red: Och runt 0 som solbulle skrev ovan. Varför har du tal som strängar?
Mvh,
[Redigerat av @nders den 20 jan 2002]
RDLMedlem sedan mars 2001344 inlägg tack.. ändrade talen till bara tal:
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
Men nu så står det: Http 500 Internt server fel hmzz.. :(
@ndersMedlem sedan juni 200032 969 inlägg Se då till att stänga av Friendly error messages / Egna http-felmeddelanden i IE, så du får något riktigt att utgå ifrån.
RDLMedlem sedan mars 2001344 inlägg Kan inte.. De ligger på en netintense server.. :(
[Redigerat av RDL den 20 jan 2002]
LarsGMedlem sedan dec. 200012 464 inlägg Då ändrar du i explorer
tools -> Internet options -> Advanced
Där finns en rutan som heter
Show user friendly error messages
Klicka av den så att du får se det rätta felet.
------------------
essentitia preter non sans multiplicandum
RDLMedlem sedan mars 2001344 inlägg Klickade bort visa egna egna http meddelanden.. men det funkade inte..
@ndersMedlem sedan juni 200032 969 inlägg Vad funkade inte? Får du fortfarande 500?
Man kan ju alltid prova att starta om IE...
RDLMedlem sedan mars 2001344 inlägg Yes, jag får fortfarande fram Http 500 Internt server fel..
Gällde det bara det: Show user friendly error messages för linux såg en linux pingvin där..
RDLMedlem sedan mars 2001344 inlägg Är 'visa egna egna http meddelanden' = Show user friendly error messages
Har win98 om det är till någon hjälp..
solbulleMedlem sedan mars 20015 287 inlägg Jepp, har du klickat BORT det?
------------------
/solbulle
Hemmabio | Spelautomater | The Who
@ndersMedlem sedan juni 200032 969 inlägg Kan du ge oss en url till sidan?
