Når jeg kører det på frip.dk får jeg denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/cronck/add_monster_handler.asp, line 140
når jeg får fejlen lokalt er det osse linie 140?
Her er hele filen:
<html>
<head>
<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 Added!</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>Members only?</td>
<td><%=Request.Form("strmember")%></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 (Always)</td>
<td><%=Request.Form("strloot_permanent")%></td>
</tr>
<tr>
<td>When examine it says:</td>
<td><%=Request.Form("strexamine")%></td>
</tr>
<tr>
<td>Agressive?</td>
<td><%=Request.Form("stragressive")%></td>
</tr>
<tr>
<td>Type (Animal, Giant etc.)</td>
<td><%=Request.Form("strtype")%></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
response.buffer = true
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("cgi-bin/itemsandmonsters.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
if Request.form("strname")="" then
strname=" "
else
strname=Request.form("strname")
end if
if Request.form("strlocation")="" then
strlocation=" "
else
strlocation=Request.form("strlocation")
end if
if Request.form("strmember")="" then
strmember=" "
else
strmember=Request.form("strmember")
end if
if Request.form("strhits")="" then
strhits=" "
else
strhits=Request.form("strhits")
end if
if Request.form("strloot_common")="" then
strloot_common=" "
else
strloot_common=Request.form("strloot_common")
end if
if Request.form("strloot_rare")="" then
strloot_rare=" "
else
strloot_rare=Request.form("strloot_rare")
end if
if Request.form("strloot_permanent")="" then
strloot_permanent=" "
else
strloot_permanent=Request.form("strloot_permanent")
end if
if Request.form("strexamine")="" then
strexamine=" "
else
strexamine=Request.form("strexamine")
end if
if Request.form("stragressive")="" then
stragressive=" "
else
stragressive=Request.form("stragressive")
end if
if Request.form("strtype")="" then
strtype=" "
else
strtype=Request.form("strtype")
end if
sql = "Insert Into tbl_monsters(name, location, member, hits, loot_common, loot_rare, loot_permanent, examine, agressive, type) Values('"
sql = sql & Request("strname") & "','"
sql = sql & Request("strlocation") & "','"
sql = sql & Request("strmember") & "','"
sql = sql & Request("strhits") & "','"
sql = sql & Request("strloot_common") & "','"
sql = sql & Request("strloot_rare") & "','"
sql = sql & Request("strloot_permanent") & "','"
sql = sql & Request("strexamine") & "','"
sql = sql & Request("stragressive") & "','"
sql = sql & Request("strtype") & "')"
Conn.Execute(sql)
Conn.Close
%>
Ny bruger
Nybegynder
Opret
Preview
