Jeg vil gerne ændre det så det fungere til MS SQL database 2000. Men jeg har ændret lidt i det men for den fejl kode som beskrevet oven for.
Hvad er der galt og hvad skal der ændres for at det virker ?
Jeg har lavet følgende.:
En dbstring
<%
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=SQLOLEDB.1;Server=mail;database=test;statis ID=test;Password=test"
%>
Her efter kommer den næste fil
default.asp
<!--#include file="include_files/dbstring.asp" -->
<!--#include file="include_files/globalvariables.asp" -->
<html>
<head>
<script language="javascript">
function x() {
form.brugernavn.focus();
}
</script>
<!--#include file="include_files/stylesheet.asp" -->
<%
Function AlertBox(Messagetext)
response.write "<script language=""javascript"">"& vbcrlf
response.write "<!--"& vbcrlf
response.write "alert("""
response.write MessageText
response.write " !"")"& vbcrlf
response.write "//-->"& vbcrlf
response.write "</script>"& vbcrlf
End function
if request.cookies("autologin") = "true" then
SQL = "UPDATE Oprettet SET allevisit=allevisit+1, sidstevisit = '" &Dato&"' WHERE brugernavn='"&brugernavn&"'"
conn.execute(SQL)
Response.cookies("brugernavn") = session("brugernavn")
Response.Cookies("brugernavn").expires = now() + 2000
response.cookies("auto") = "ok"
Response.Cookies("auto").expires = now() + 2000
Response.Cookies("pass") = session("brugernavn")
Response.Cookies("pass").expires = now() + 2000
session("brugernavn") = request.cookies("brugernavn")
session("pass") = request.cookies("pass")
response.redirect("edit.asp")
end if
if request("submit") <> "" then
brugernavn = request("brugernavn")
pass = request("pass")
SQL = "SELECT brugernavn, pass FROM oprettet WHERE (brugernavn='"brugernavn"') AND (pass='"&pass&"')"
set rs = conn.execute(SQL)
SQL = "UPDATE Oprettet SET allevisit=allevisit+1, sidstevisit = '" &Dato&"' WHERE brugernavn='"&brugernavn&"'"
conn.execute(SQL)
if not rs.eof then
if request.form("autologin") <>"" then
Response.cookies("brugernavn") = session("brugernavn")
Response.Cookies("brugernavn").expires = now() + 2000
response.cookies("auto") = "ok"
Response.Cookies("auto").expires = now() + 2000
Response.Cookies("pass") = session("pass")
Response.Cookies("pass").expires = now() + 2000
end if
session("brugernavn") = brugernavn
rs.close
response.redirect("edit.asp")
else
response.redirect("default.asp?function=1")
end if
end if
Select Case request("function")
Case "1"
alertbox "Forkert Brugernavn eller Adgangskode"
Case "2"
alertbox "Der opstod en uventet fejl"
Case "3"
session("brugernavn")=""
session("pass")=""
alertbox "Du er nu logget af"
End select
%>
<title><%=service_name%> - Hold øje med din hjemmeside her</title>
</head>
<body background="jpgs/background.gif" onload="x()">
<table width="100%" border="0">
<tr>
<td width="5%" valign="top">
<!--#include file="include_files/link_outside.asp" -->
</td>
<td valign="top">
<table width="468" border="0" align="center" bgcolor="#FFFFFF" height="350">
<tr><td align="center" valign="top">
<form name="form" action="default.asp" method="post">
<table border = 0 width="350">
<tr align="center"><td colspan="2">
<br>
<b>Log ind på <%=service_name%></b>
<br>
<br>
<br>
</td></tr>
<tr><td width="177">Dit brugernavn:
</td>
<td width="213" align="right">
<input name="brugernavn" type=text size="20">
</td>
<tr><td width="177">Dit password:
</td>
<td width="213" align="right">
<input name="pass" type=password size="20">
</td>
<tr><td width="177" valign="top"> </td>
<td width="213" align="right">
<input type="submit" value= " LOG IND " name="submit">
<br>
<br>
</td>
<tr align="right">
<td colspan="2" valign="top">
Autologin næste gang
<input type="checkbox" name="Autologin" value="true">
</td>
</table>
<br>
<br>
<br>
</form>
</td></tr>
</table>
</td></tr>
</table>
</body>
</HTML>
