Varför kan denna sidan (som bland annat kollar om man skrivit in rätt lösenord och användarnamn) inte visas?

Här är koden:
<code>

<!-- #include file="adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL};DATABASE=databasen;UID=johan;PWD=losen;SERVER=localhost"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From medlemmar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Dim poang
'----- Rensar bort sånna som inte loggat ut korrekt.. -------

Do Until RecSet.EOF

If RecSet("status") = "1" AND DateDiff("n", RecSet("datum"), Now) > 45 Then
RecSet("status") = "0"
RecSet.Update
End If

RecSet.MoveNext
Loop

RecSet.Close

'---------------- SLUT PÅ UTRENSNINGEN ------------------

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then

RecSet("datum") = Now
RecSet("status") = "1"
RecSet("poang") = RecSet("poang")+1

RecSet.Update

Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("username") = RecSet("username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "1"
Session("epost") = RecSet("epost")

Session.TimeOut = 40 '<-- Kontrollera


RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "inne.asp"

End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "default.asp"

%>

</code>

Hej

Stäng av sk Vänliga felmeddelanden i din webbläsare då ser du på vilken rad som felet uppstår och vilket fel som blir och det blir lättare att felsöka.

Anna-Karin

Jag brukar kunna se vad felen är när jag har sidan på min egna dator men nu har jag den på ett webbhotell.

Så denna kod stämmer inte:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL};DATABASE=databasen;UID=johan;PWD=losen;SERVER=localhost"
..skrev bara om connection-uppgifterna för att jag inte ville skriva de riktiga.

Kan man trots att sidan ligger på ett webbhotell se vad felet är. Och i så fall hur stänger man av "sk Vänliga felmeddelanden".

Du kan stänga av visa vänliga felmeddelanden och då gäller det alla sidor.

I IE Verktyg => Internet-alternativ=> Fliken Avancerat
Visa egna HTTP-felmeddelanden, bocka ur den, sen ska du kunna se vad som blir fel.

Anna-Karin

Optemerings förslag:
<code>

<!-- #include file="adovbs.inc" -->

<%

Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function

Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Month(Value) & "/" & Day(Value) & "/" & Year(Value) & " " & Hour(Value) & ":" & Minute(Value) & ":" & Second(Value) & "#"
Else
SQLDate = "Null"
End If
End Function


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL};DATABASE=databasen;UID=johan;PWD=losen;SERVER=localhost"

Dim poang
'----- Rensar bort sånna som inte loggat ut korrekt.. -------

strSQL = "UPDATE medlemmar SET status = 0 WHERE status = '1' AND datum < " & SQLDate(DateAdd("n",-45,Now))

Connect.Execute
'---------------- SLUT PÅ UTRENSNINGEN ------------------

strSQL = "SELECT * FROM medlemmar WHERE username = " & SQLText(Request.Form("username")) & " AND losen = " & SQLText(Request.Form("losen"))

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "default.asp"
Else
RecSet("datum") = Now
RecSet("status") = "1"
RecSet("poang") = RecSet("poang")+1

RecSet.Update

Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("username") = RecSet("username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "1"
Session("epost") = RecSet("epost")

Session.TimeOut = 40 '<-- Kontrollera


RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "inne.asp"
End If

RecSet.MoveNext
Loop


%>

</code>

Hej.

Jag pratade lite med webbhotellet och de viste inte om jag kunde använda en sådan koppling som jag har ovan.

de gav mig ett exempel på en koppling, nämligen:
<code>
<%
cst = "driver={MySQL}; server=mysql.doman.se;"
cst = cst & "uid=användarnamn; pwd=lösenord; database=databas"
set conn = Server.CreateObject("ADODB.Connection")
conn.open cst
%>
</code>

...hur skulle koden se ut med denna koppling. Någon som kan visa. Alltså hela koden måste väll nästan ändras?