Jag får ett syntaxfel (operatör saknas) vid frågeuttrycket det där problemet fick jag å men jag fick bort det med lite nötande det brukar vara nå litet fel bara ... kommer inte ihåg vart jag fixa till så det funka men om du vill så kan du se min inloggning så kan du jämnföra kan ha varit nå litet du missat. Daniel. Oki ASP Login? av Pelle Johansson...
'username = 'xxxx' password = 'yyyy'.
Detta syftar på raden "con.execute sql"... varför?
Tack på förhand!Sv: ASP Login? av Pelle Johansson...
MvH DanielSv: ASP Login? av Pelle Johansson...
Det skulle vara bra om jag fick se din "inloggning".
/ErikSv: ASP Login? av Pelle Johansson...
min databas som jag har är dns ansluten med namnet personal
med tabelnamn AnvändarAlias och fälten är AnsvarigID AnsvarigAlias AnsvarigPasw
om du har kopplat din sida mot databasen så är det så här det ska se ut
logintextrutan på sidan heter username
och textrutan för lösenordet heter password
<%
' förbereder för en omdirigering
response.buffer = true
' ansluter till min datakälla
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "personal"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Inloggning</title>
</head>
<form method="POST" action="default1.asp?action=login">
<div align="left">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="45%" valign="top" align="right"><font face="Verdana" size="1"><b>Användarnamn:</b></font></td>
<td width="55%" valign="top"><font face="Verdana" size="1">
<input type="text" name="username" size="20">
</font></td>
</tr>
<tr>
<td width="45%" valign="top" align="right"><font face="Verdana" size="1"><b>Lösenord:</b></font></td>
<td width="55%" valign="top"><font face="Verdana" size="1">
<input type="password" name="password" size="20">
</font></td>
</tr>
</table>
</div>
<p align="center">
<input type="submit" value="Logga in" name="B1">
</p>
</form>
<%
' vill användaren logga in?
action = Lcase(Request("action"))
Select Case Action
Case "login"
strUser = Request("username")
strPass = Request("password")
sql = "select * from ansvarig where " & _
"ansvarigAlias = '" & strUser & "' AND " & _
"ansvarigPasw = '" & strPass & "';"
set RecSet = Connect.Execute(sql)
' kör frågan mot tabellen
connect.execute sql
' fick vi någon träff?
If NOT RecSet.eof Then
' träff
LoginFlag = True
Else
' inga träffar
LoginFlag = False
End If
End Select
If action = "login" And LoginFlag = True Then
' korrekt inloggning, gå till startsidan
Response.Redirect "inloggad.asp?username=" & strUser %><target="center"> <%
Else
end if %><form method="POST" action="default1.asp?action=login">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<% If action = "login" And LoginFlag = False Then %>
<tr>
<td width="70%" colspan="2">
<div align="center"><font face="Verdana" size="1"><b>Din inloggning misslyckades,
försök igen!</b></font></div>
</td>
</tr>
<div align="left">
<% End If %>
</div>
<tr>
</html>
byt namne på fälten till namnen du har så ska det nog funka
annars är det bara fråga igen.
MvH Daniel