En masse ting

Hej alle

Jeg har brug for hjælp med at få 2 ting til at fungere:

1. checke et kodeord
2. uploade en fil, samt rette en tekst samtidigt

Her er de 3 filer jeg bruger:

Egenside.asp

<html>
<head>
<title></title>
</head>
<body>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"medlemmer.mdb\")
SQLstmt = \"Select * From data where id = \" & request(\"id\")
Conn.Execute (SQLstmt)
Set RS = Conn.Execute(SQLstmt)
%>

<table cellpadding=\"10\">
<tr>
<td><img src=\"billeder/<%=rs(\"charname\")%>.jpg\" width=\"320\" height=\"240\" alt=\"Billede af <%=rs(\"charname\")%>\"></td>
<td><font size=\"5\"><b><%=rs(\"charname\")%></b></font><br><br>Level: <%=rs(\"charlevel\")%><br><br>Race: <%=rs(\"charrace\")%><br><br>Klasse: <%=rs(\"charclass\")%><br><br>Guildstatus: <%=rs(\"charstatus\")%><br><br>Main: <%=rs(\"mainchar\")%></td>
</tr>
</table>
<br><br>
<table>
<tr>
<td><%=replace(rs(\"chartext\"), vbcrlf, \"<br>\" & vbcrlf)%></td>
</tr>
</table>
<br><br>
<form method=\"post\" action=\"egenside2.asp?id=<%=rs(\"id\")%>\">
<input type=\"text\" name=\"kodeord\" size=\"25\" value=\"Indtast dit kodeord\">
<input type=\"submit\" value=\"send\">

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

</form>
</body>
</html>

Egenside2.asp

<html>
<head>
<title></title>
</head>
<body>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"medlemmer.mdb\")
SQLstmt = \"SELECT * FROM data WHERE id = \" & Request(\"id\")
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>

<center>
<form method=\"POST\" enctype=\"multipart/form-data\" action=\"egenside3.asp?id=<%=rs(\"id\")%>\">
<textarea name=\"chartext\" rows=\"25\" cols=\"100\"><%=rs(\"chartext\")%></textarea>
<br>
<input type=\"file\" value=\"billedfil her\" name=\"file\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=\"submit\" value=\"send\">
</form>
</center>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

</body>
</html>

Egenside3.asp

<%
response.buffer = true
%>

<html>
<head>
<title></title>
</head>
<body>

<%
Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Count = Upload.SaveVirtual(\"/billeder\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"medlemmer.mdb\")
SQLstmt = \"UPDATE DISTINCTROW data SET chartext = \'\" & request.form(\"chartext\") & \"\' WHERE id = \" & Request(\"id\")
response.write sqlstmt
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect (\"default.htm\")
%>

</body>
</html>

testkode kan afprøves på:

http://www.mightydanes.dk/medlemmer.asp

vælg venligst karakteren Wildroot Forestrunner


Med venlig hilsen
Søren