Har en træls fejl!
Jeg har lavet et bytte/salg system ud fra en tagwall jeg selv har lavet, som fugerer fint. Men i bytte/salg systemet er der en fejl jeg ikke kan finde! Hjælp moi ;)nytbyt.asp :
<html>
<head>
<title>Tagwall</title>
<style>
<!--
a{text-decoration:none}
//-->
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<center><font size="2" face="Tahoma"><a href="../tagwall/visbyt.asp">Byttehandler</a> - <a href="../tagwall/nytbyt.asp">Opret
byttehandel</a> - <a href="../tagwall/fungerer.asp">Hvordan fungerer det?</a><hr></font></center>
<form name="nytbyt" action="../tagwall/nytbyt.asp?mode=new" method="post">
<table>
<tr>
<td colspan=2><font face="Tahoma" size="2">Opret ny byttehandel</font></td>
</tr>
<font size="2" face="Tahoma">
<tr>
<td><font face="Tahoma" size="2">*HH brugernavn:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="name" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td><font face="Tahoma" size="2">*Mail:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="mail" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td><font face="Tahoma" size="2">*Msn:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="msn" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td><font face="Tahoma" size="2">*Icq:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="icq" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td><font face="Tahoma" size="2">*Jeg vil af med:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="afmed" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td><font face="Tahoma" size="2">*Jeg søger:</font></td>
<td><font face="Tahoma" size="2"><input type="text" name="vilha" size="20" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></font></td>
</tr>
<tr>
<td colspan=2><font face="Tahoma" size="2">Andet:<br><textarea cols=27 rows=10 name="besked" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"></textarea></font></td>
</tr>
</table>
<font face="Tahoma" size="2">
* = Skal udfyldes<br>
<input type="submit" value="Byt" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000"> <input type="reset" value="Slet det" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000">
</font>
<br><br>
<b><font size="5" face="Tahoma" color="red">Tryk kun på Byt en gang!!!!!!!</font></b>
</form>
<%
DBPATH="DBQ=" & server.mappath("byt123.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DBPATH
if request("mode")="new" then
xfrom= request.form("name")
xname=request.form("name")
mail=request.form("mail")
msn=request.form("msn")
icq=request.form("icq")
afmed=request.form("afmed")
vilha=request.form("vilha")
msg=request.form("besked")
if xfrom="" or xname="" or mail="" or afmed="" and vilha="" or msg="" or msn="" and icq="" then
response.write "<b>Du udfyldte ikke alle felterne!!!</b>"
else
sql="insert into bytsalg (from_name,from_mail,msg,afmed,vilha,msn,icq) values('" & xname & "','" & xmail & "','" & msg & "','" & afmed & "','" & vilha & "','" & msn & "','" & icq & "')"
conn.execute(sql)
end if
end if
sql="select * from bytsalg order by id DESC"
set rs=conn.execute(sql)
do while rs.eof=false
%>
</body>
</html>
<%
rs.movenext
loop
set conn=nothing
%>
Og her er visbyt.asp :
<html>
<head>
<title>Tagwall</title>
<style>
<!--
a{text-decoration:none}
//-->
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<center><font size="2" face="Tahoma"><a href="visbyt.asp">Byttehandler</a> - <a href="nytbyt.asp">Opret
byttehandel</a> - <a href="fungerer.asp">Hvordan fungerer det?</a><hr></center>
<%
DBPATH="DBQ=" & server.mappath("byt123.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DBPATH
sql="select * from bytsalg order by id DESC"
set rs=conn.execute(sql)
do while rs.eof=false
%>
<table cellspacing=0 cellpadding=0 border=0 bgcolor="000000" width="300">
<tr>
<td>
<table bgcolor="ffffff" width="100%">
<tr>
<td><font face="Tahoma" size="2"><a href="mailto:<%=rs("from_mail")%>"><%=rs("from_name")%></a> søger <%=td("vilha")%>, og vil gerne af med <%=rs("afmed")%>.
</td>
</tr>
<tr>
<td colspan=2><font face="Tahoma" size="2">Hvis du er interreseret så tryk på navnet eller kontakt mig på
<br>Icq:<%=rs("icq")%><br>Mail:<%=rs("from_mail")%><br>Msn:<%=rs("msn")%><br></font></td>
</tr>
</table>
</td>
</tr>
</table>
<font face="Tahoma" size="2">
<br><br>
</font>
</body
</html>
<%
rs.movenext
loop
set conn=nothing
%>
Håber virkelig i kan hjælpe! ;)
