Ingen som vet?? dt är lite bråttom.
Frågan#1
hej!
Jag får detta fel när jag ska gå in på min kundsida.
Microsoft JET Database Engine error '80004005'
Unrecognized database format 'g:\home\domain.nu\html\kund\klient.mdb'.
/kund/kundlogi.asp, line 2
--------------------------
Jag vet att det är databas delen som är fel men jag kan inte löse detta men hoppas att ni kan det..
...................................
Kundlogi.asp
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("klient.mdb")
If Request.Querystring("fel") = "ett" Then
mess = "alert('Du skrev fel lösenord eller användarnamn!');return true;"
End If
If Request.Querystring("fel") = "tva" Then
mess = "alert('Kundnumret finns inte!');return true;"
End If%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>kundavdelning</title>
</head>
<body OnLoad="<%=mess%>">
<p> </p>
<%If Request.Querystring("do")="" Then%>
<table border="0" cellpadding="0" cellspacing="0" width="120"
style="border: 1px solid #000000">
<TBODY> <tr>
<td width="118" bgcolor="#AAAAAA"
style="border-bottom: 1px solid #000000"><p align="left"><font
size="1" face="Verdana"> </font><font
color="#FFFFFF" size="1" face="Verdana"> <b>Kund
Login</b></font></p>
</td>
</tr>
<form action="kundlogi.asp?do=check" method="post">
<tr>
<td width="116" bgcolor="#EFEFEF"><font size="1"
face="Verdana"> Kund nummer: <br>
<input type="text" size="13" name="kundnr"
style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #c9c9c9 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #c9c9c9 1px solid; COLOR: #2f2f1f; FONT-FAMILY: Arial, Helvetica; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; WIDTH: 100px" value="<%=Request.Cookies("kundnr") %>"><br>
Användarnamn: <br>
<input type="text" size="13" name="anv"
style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #c9c9c9 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #c9c9c9 1px solid; COLOR: #2f2f1f; FONT-FAMILY: Arial, Helvetica; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; WIDTH: 100px" value="<%=Request.Cookies("anv") %>"><br>
Lösenord: <br>
<input type="text" size="13" name="losen"
style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #c9c9c9 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #c9c9c9 1px solid; COLOR: #2f2f1f; FONT-FAMILY: Arial, Helvetica; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; WIDTH: 100px"><br>
</font><p align="right"><font size="1" face="Verdana"><!--webbot
bot="HTMLMarkup" startspan --><input type="image" src="loggin.gif" name="Submit"><!--webbot
bot="HTMLMarkup" endspan --> <br>
</font></p>
</td>
</tr>
</form>
<font size="1" face="Verdana"></TBODY></font>
</table>
<%End If
If Request.Querystring("do")="check" Then
Set RecSet=Conn.Execute("Select \* From kunder where kundnr='" & Request.Form("kundnr") & "'")
Response.Cookies("kundnr") = Request.Form("kundnr")
Response.Cookies("anv") = Request.Form("anv")
If Not RecSet.EOF Then
If Request.Form("losen") = RecSet("losen") And Request.Form("anv") = RecSet("anv") Then
login="ok"
Else
Response.Redirect "kundlogi.asp?fel=ett"
End If
Else
Response.Redirect "kundlogi.asp?fel=tva"
End If
If login="ok" Then
Session("login") = "ok"
Session.TimeOut = 40
Response.Redirect "kundlogi.asp?do=inne"
End If
End If
If Request.Querystring("do")="inne" And Session("login") = "ok" Then%>
<b>INNE</b>
<%End If%>
</body>
</html>
