Du får lige hele filen...
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>RSFever</title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#008000" vlink="#008000" alink="#008000">
<center><font size="5">Monster Updated!</font></center>
<div align="center">
<center>
<table border="0">
<tr>
<td>Monster Name:</td>
<td><%=Request.Form("strname")%></td>
</tr>
<tr>
<td>Location</td>
<td><%=Request.Form("strlocation")%></td>
</tr>
<tr>
<td>Level</td>
<td><%=Request.Form("strlevel")%></td>
</tr>
<tr>
<td>Info</td>
<td><%=Request.Form("strinfo")%></td>
</tr>
<tr>
<td>Hits</td>
<td><%=Request.Form("strhits")%></td>
</tr>
<tr>
<td>Loot (common)</td>
<td><%=Request.Form("strloot_common")%></td>
</tr>
<tr>
<td>Loot (rare)</td>
<td><%=Request.Form("strloot_rare")%></td>
</tr>
<tr>
<td>Loot Permanent</td>
<td><%=Request.Form("strloot_permanent")%></td>
</tr>
<tr>
<td>Examine</td>
<td><%=Request.Form("strexamine")%></td>
</tr>
<tr>
<td>Type</td>
<td><%=Request.Form("strtype")%></td>
</tr>
<tr>
<td>Members Only</td>
<td><%=Request.Form("strmember_only")%></td>
</tr>
<tr>
<td>Agressive</td>
<td><%=Request.Form("stragressive")%></td>
</tr>
<tr>
<td>Quest Monster</td>
<td><%=Request.Form("strquest")%></td>
</tr>
</table>
Click <a href="monster.asp?id=<%=Session("ID")%>">here</a> to go straight to the monster<br>
Click <a href="monsters.asp">Here</a> to go to the monsters list<br>
</center>
</div>
</body>
</html>
<%
response.buffer = true
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("cgi-bin/itemsandmonsters.mdb")
Conn.Open DSN
strSQL = "Update tbl_Monsters set "
strSQL = strSQL & "[name]='" & Request.Form("strname") & "', "
strSQL = strSQL & "location='" & Request.Form("strlocation") & "', "
strSQL = strSQL & "[level]=" & Request.Form("strlevel") & ", "
strSQL = strSQL & "info='" & Request.Form("strinfo") & "', "
strSQL = strSQL & "hits='" & Request.Form("strhits") & "', "
strSQL = strSQL & "loot_common='" & Request.Form("strloot_common") & "', "
strSQL = strSQL & "loot_rare='" & Request.Form("strloot_rare") & "', "
strSQL = strSQL & "loot_permanent='" & Request.Form("strloot_permanent") & "', "
strSQL = strSQL & "examine='" & Request.Form("strexamine") & "', "
strSQL = strSQL & "[type]='" & Request.Form("strtype") & "', "
strSQL = strSQL & "member=" & Request.Form("strmember_only") & ", "
strSQL = strSQL & "agressive=" & Request.Form("stragressive") & ", "
if Request.Form("strhits")="" then
strSQL = strSQL & "xp=0, "
else
strSQL = strSQL & "xp=" & CDbl(Request.Form("strhits")) & " * 5.33, "
end if
strSQL = strSQL & "quest=" & Request.Form("strquest") & " "
strSQL = strSQL & " Where Id = " & Session("ID")
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
