Programmering af chat. HJÆLP!
Hejsan..Jeg har fik engang en 3Dchat, som det var meningen at jeg skulle programmere videre på. Men Men, det blev aldrig til noget pga. familiære årsager. Nu er jeg så begyndt lidt at kigge lidt på den igen. Og ved login stødder jeg på dette problem. Kan i hjælpe mig?
Selve kilden i login:
----------------------------------------
<%@ Language=VBScript %>
<% Function NoCache()
Response.Expires = 0
Response.ExpiresAbsolute = Now() -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control", "private" 'stops proxy server
cache
Response.CacheControl = "no-cache"
End Function %>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
' tjekker brugeren...
Session("brugernavn") = request.form("brugernavn")
Session("password") = request.form("password")
%>
<%
set Conn = Server.createObject("ADODB.Connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
Response.Buffer = True
' tjekker om brugeren er logget ind
Function checklogin(brugernavn,password)
set tjek = Conn.Execute("SELECT * FROM brugere WHERE brugernavn = '"& brugernavn &"' AND kodeord = '"& password &"'")
If tjek.EOF THEN
session("fejl") = "<center><font size='1' face='Tahoma' color='#FF0000'>fejl</FONT></center>"
Else
Session("login") = tjek("id")
Response.Redirect("loggetind.asp")
End If
End Function
Function sqlreplace(streng)
sqlreplace = Replace(streng,"'","''")
End Function
REM Diverse funktioner slut
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Chive > Log ind</title>
</head>
<body>
<DIV id=nyheder
style="z-index: 100; background-repeat: repeat; background-attachment: scroll; left: 1; width: 136; position: absolute; top: 1; height: 0; background-position: 0% 50%"
align=center>
<%= session("fejl") %>
<table align="center" cellSpacing="0" cellPadding="0" border="0" height="1" width="100">
<tr>
<td align="center" height="1" width="123" rowspan="2">
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then checklogin sqlreplace(Request.Form("brugernavn")),sqlreplace(Request.Form("password")) %>
<form action="login.asp" method="post" name="" id="">
<table width="104" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32"><font size="1" face="Tahoma">Navn:</font></td>
<td width="80" align="center"><font size="1" face="Tahoma"><input name="brugernavn" type="text" size="13" style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #006699; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #FFFFFF"></font></td>
</tr>
<tr>
<td width="32"><font size="1" face="Tahoma">Kode:</font></td>
<td width="80" align="center"><input name="password" type="password" size="13" style="BORDER-RIGHT: #000000 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 10px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px solid; COLOR: #006699; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #FFFFFF"></font></td>
</tr>
<tr>
<td width="32"> <div align="center">
</div></td>
<td width="80" align="center">
<font size="1" face="Tahoma">
<input border="no" name="image" src="images/login2.gif" type="image" align="left">
</font>
</td>
</tr>
<tr>
<td width="32"> </td>
<td width="80" align="center">
<p align="center"><a href="betaopret.asp" target="frame_1"><img border="0" src="images/newuser.gif" align="left">
</a>
</td>
</tr>
</table>
</form>
</table>
</div>
</body>
<% end if %>
----------------------------------------
Og browseren melder bare fejl?? Hvad er forkert i denne kode???
