Saken är att det verkar som om jag inte får ngn kontakt med databasen. Det ända som händer är att sidan laddas och tar med sig värdena från input fälten.Skumt....
Så ser hela koden ut:
<%
response.buffer = true
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\aspOvningar\databas.mdb"
%>
<html>
<head>
<title>Logga in</title>
</head>
<body>
<form action="loggaIn.asp?mode=validate">
<input type="text" name="txtSmeknamn"><br>
<input type="password" name="txtLosen"><br>
<input type="submit" value="Logga in">
</form>
<br><br>
registrera dig här!
<br>
<br>
<%
If request.querystring("mode") = "registrera" Then
%>
Här kan du registrera dig!<br><br>
<form>
önskat smeknamn:<input type="text" maxlength="16" name="txtSmeknamn"><br>
Lösenord:<input type="text" maxlength="16" name="txtLosen"><br>
namn:<input type="text" maxlength="16" name="txtNamn"><br>
Kön: kille<input type="radio" name="txtKon" value="kille">tjej<input type="radio" name="txtKon" value="tjej"><br>
ålder:<select name="txtAlder">
<option> 17
<option> 18
<option> 19
<option> 20
<option> 21
<option> 22
<option> 23
<option> 24
<option> 25
<option> 26
<option> 27
<option> 28
<option> 29
<option> 30
</select><br>
Stad:<input type="text" maxlength="16" name="txtStad"><br>
Beskrivning av dig:<textarea name="txtBeskrivning" rows="10" cols="20"></textarea><br>
</form>
<%
End If
%>
<%
If request.querystring("mode") = "validate" Then
smeknamn = Request.form("txtSmeknamn")
losen = Request.form("txtLosen")
SQL = "SELECT idSmeknamn, fltLosen FROM tblAnvandare "
SQL = SQL & "WHERE idSmeknamn = '" & smeknamn & "' And fltLosen = '" & losen & "'"
Set rs = conn.Execute(SQL)
If Not (rs.EOF or rs.BOF) Then
session("inne") = True
session("smeknamn") = rs("idSmeknamn")
Response.Redirect "index.asp"
Else
Response.Redirect "loggaIn.asp?mode=fel"
End If
End If
%>
</body>
</html>