Ingen fejlmeddelelse virker bare ikk?
Kan ikk få skidtet til at virke, og den fortæller mig ikke hvad der er i vejen... :(<%
option explicit
response.buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cgi-bin/itemsandmonsters.mdb")
Conn.Open DSN
%>
<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">
<%
strSQLMonster = "Select * from tbl_Monsters Where Id= " & Request("id")
Set rsMonster = Conn.Execute(strSQLMonster)
picture=rsMonster("picture")
%>
<div align="center">
<center><a href="items.asp">Back</a>
<table border="0" width="525" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="3" valign="top"><%if picture="None" OR picture="" then%><img src="img/nopic.jpg"><%else%><img src="img\monsters\<%=picture%>"><%end if%>
</td>
<th align="center" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300" width="3" rowspan="3"> </th>
<th colspan="3" align="center" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"><font size="5"><b><%=rsMonster("name")%></b></font></th>
</tr>
<tr>
<td bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"><b>Level:</b> <%=rsMonster("level")%></td>
<td bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"><b>Member Monster:</b><%if rsMonster("member")="True then %>Yes<% else %> No</td>
<td bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"><b>Quest Monster:</b> <%if rsMonster("quest")="True then %>Yes<% else %> No</td>
</tr>
<tr>
<td colspan="3">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td height="3" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"></td>
<td height="3" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"></td>
<td height="3" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300"></td>
</tr>
<tr>
<td width="90" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300">Found:</td>
<td width="3"></td>
<td width="343"><%=rsMonster("location")%></td>
</tr>
<tr>
<td width="90" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300">Type:</td>
<td width="3"></td>
<td width="343"><%=rsMonster("info")%></td>
</tr>
<tr>
<td width="90" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300">Requirements:</td>
<td width="3"></td>
<td width="343"></td>
</tr>
<tr>
<td width="90" bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300">Examine says:</td>
<td width="3"></td>
<td width="343"><%=rsMonster("examine")%></td>
</tr>
<tr>
<td bgcolor="#003300" bordercolor="#003300" bordercolorlight="#003300" bordercolordark="#003300" height="3"></td>
<td width="3"></td>
<td height="3"></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
