Arguments are of the wrong type, are out of acceptable range
Jeg er idag stødt på en fejltype jeg ikke tidligere har stiftet bekendtskab med:"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."
Jeg har en database med 2 tabeller med flg. opbygning
TABEL: torp_single_colors
- ColorID (autonr.)
- Name
- Hex
TABEL: torp_double_colors
- ColorID (autonr.)
- Name
- CID
- CID2
Jeg skal så lave et lille system med nogle forskellige farver. single_colors tabellen indeholder f.eks. farverne:
1. Rød
2. Blå
3. Grøn
I systemet skal man også kunne ”arbejde” med dobbeltfarver. Det er en farve sammensat af 2 single_colors. Farven rød/blå ser derfor sådan ud i tabellen double_colors:
- ColorID (autonr.)
- Name (”Rød/blå”)
- CID (1 = rød)
- CID2 (2 = blå)
Nu prøver jeg så at trække en liste over tilgængelig farver ud. Først alle enkeltfarverne. Derefter alle dobbeltfarverne.
Og det i forbindelse med det jeg støder på nævnte fejl. Nå ikke mere forklaring, men hermed den kode jeg har forsøgt mig med:
<!--#include file="database.asp"-->
<!--#include file="methods.asp"-->
<%
SQL = "Select * FROM torp_single_colors ORDER BY Name"
Set rsSingle = Conn.Execute(SQL)
SQL = "Select * FROM torp_double_colors ORDER BY Name"
Set rsDouble = Conn.Execute(SQL)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tilføj produkt</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="addColor.asp?mode=add">
<p>Varenummer:<br>
<input name="itemID" type="text" id="itemID">
</p>
<p>Titel:<br>
<input name="title" type="text" id="title">
</p>
<p>Beskrivelse:<br>
<textarea name="description" cols="75" rows="5" id="description"></textarea>
</p>
<p>Pris:<br>
<input name="price" type="text" id="price">
</p>
<p>Tilgængelig farver</p>
<%
If rsSingle.eof or rsSingle.bof then
Response.Write "Ingen enkeltfarver"
Else
Response.Write "<p>Enkelt farver:</p>"
Do While Not rsSingle.eof
Response.Write "<img alt='' src='colors/s_" & rsSingle("ColorID") & ".gif' width='10px' height='10px'> "
Response.Write "<input type='checkbox' name='s_" & rsSingle("ColorID") & ".gif' value='s_" & rsSingle("ColorID") & "'> "
Response.Write rsSingle("Name") & "<br>"
rsSingle.movenext
Loop
End if
%>
<%
If rsDouble.eof or rsDouble.bof then
Response.Write "Ingen dobbeltfarver."
Else
Response.Write "<p>Dobbeltfarver:</p>"
Do While Not rsDouble.eof
SQL = "Select * FROM torp_single_colors WHERE ColorID = " & rsDouble("CID")
Set rs = Conn.Exeucte(SQL)
SQL = "Select * FROM torp_single_colors WHERE ColorID = " & rsDouble("CID2")
Set rs2 = Conn.Exeucte(SQL)
first_Color = rs("ColorID")
second_Color = rs2("ColorID")
Response.Write "<img alt='' src='colors/s_" & first_Color & ".gif' width='10px' height='10px'>"
Response.Write "<img alt='' src='colors/s_" & second_Color & ".gif' width='10px' height='10px'> "
Response.Write "<input type='checkbox' name='d_" & rsDouble("ColorID") & ".gif' value='d_" & rsDouble("ColorID") & "'> "
Response.Write rsDouble("Name") & "<br>"
rsDouble.movenext
Loop
End if
%>
<p>
<input type="submit" name="Submit" value="Gem">
</p>
</form>
</body>
</html>
På forhånd tak for enhver hjælp.
/pfp
