Hej!
Det verkar vara ett java-scriptfel. Prova ta bort java-scriptet eller kör det separat för att lokalisera felet.
mvh Jörgen :)
------------------
Varför bråka när man kan kramas?
Frågan#1
Vet inte om det är nån som orkar läsa det här. Jag orkar det knapp själv.
Jag får iaf felmeddelandet att document.form1.nånting är null eller inte ett objekt. Detta sker när jag väljer på dropdownmenyn..
Här kommer den hemska koden:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!-- #Include file="ADOVBS.INC" -->
<HTML>
<HEAD>
<TITLE>soksida</TITLE>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
function Byt(plagg){
if(document.form1.show[document.form1.show.selectedIndex].value != "nej"){
fargnr=document.form1.show[document.form1.show.selectedIndex].value;
nr=plagg + fargnr;
document.bildplats.src = nr+".jpg";
}
}
function lank(adress){
window.open(adress,"ingang","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=380,height=350,top=200,left=300");
}
// -->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="formsok" METHOD="get" ACTION="sok.asp">
<TABLE BORDER="1">
<TR><TD WIDTH="100"> </TD>
<TD WIDTH="100">
<SELECT NAME="plagg" SIZE="1">
<OPTION VALUE="0">[ Välj plagg ]
<OPTION VALUE="1">Jacka
<OPTION VALUE="2">Sko
<OPTION VALUE="3">Tröja
<OPTION VALUE="4">T-Shirt
<OPTION VALUE="5">Byxa
</SELECT>
</TD><TD WIDTH="100">
<SELECT NAME="kr" SIZE="1">
<OPTION VALUE="10000">[ Visa alla ]
<OPTION VALUE="200">Max 200 Kr
<OPTION VALUE="300">Max 300 Kr
<OPTION VALUE="500">Max 500 Kr
<OPTION VALUE="700">Max 700 Kr
<OPTION VALUE="1000">Max 1000 Kr
</SELECT>
</TD><TD WIDTH="100">
<INPUT TYPE="SUBMIT" VALUE="Sök"></TD></TR>
</TABLE>
</FORM>
<%
valplagg = Request.QueryString("plagg")
valplagg2 = CInt(valplagg)
valkr = Request.QueryString("kr")
valkr2 =CInt(valkr)
If Request.QueryString.Count > 0 And valplagg = "nej" Then
Response.Write "Du måste välja typ av plagg!"
ElseIf Request.QueryString.Count > 0 And val <> "nej" Then
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inl.mdb"
sql = "SELECT Marke, Pris, Beskrivning, Artikel.ArtikelID FROM Artikel,Typ WHERE (Typ.TypID = "& valplagg2 &" And Pris < "& valkr2 &" And Typ.TypID = Artikel.TypID) "
rs.Open sql, MinCon,adOpenStatic,adLockOptimistic
If rs.RecordCount > 0 Then
%>
<FORM NAME="form1" action="" METHOD="GET">
<TABLE BORDER="0" WIDTH="600" CELLPADDING="0" CELLSPACING="0">
<CAPTION>Följande plagg matchade din sökning:</CAPTION>
<%
rs.MoveFirst
Do Until rs.EOF
%>
<TR><TD> </TD>
<TD bgcolor="#6699ff" COLSPAN="5"><%=rs("Marke")%></TD><td width="1" bgcolor="#000000"></td>
</TR>
<TR><TD> </TD>
<TD><%=rs("Beskrivning")%>
<BR>Pris: <%=rs("Pris")%> Kr</TD>
<% artikelnr = rs("ArtikelID")
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT Farg.FargID, Farg.Farg FROM Artikel,FargArtikelRad,Farg WHERE Artikel.ArtikelID ="& artikelnr &" And Artikel.ArtikelID = FargArtikelRad.ArtikelID And FargArtikelRad.FargID = Farg.FargID"
rs2.Open sql2, MinCon,adOpenStatic,adLockOptimistic
rs2.MoveFirst
fargen = rs2("FargID")
%>
<TD VALIGN="middle" ALIGN="center" WIDTH="60">
<!-- Här börjar en SELECT- SATS -------------------------------SELECT------------------------SELECT--------------->
<SELECT NAME="show" SIZE="1" onChange="Byt(<%=artikelnr%> )">
<OPTION VALUE="nej">Färg
<%
rs2.MoveFirst
Do Until rs2.EOF
%>
<OPTION value="<%=tal%>"><%=rs2("Farg")%>
<%
rs2.MoveNext
Loop
%>
</SELECT>
<!-- Här slutar select-satsen---------------------SELECTEN SLUTAR ---------------------SELECTEN SLUTAR---------------->
</TD>
<TD><A HREF="JavaScript:lank('go.asp?foto=<%=artikelnr%>&farg=<%=fargen%>')"><IMG SRC="thumb/<%=artikelnr%><%=fargen%>.jpg" BORDER="0" NAME="bildplats"></A></TD>
<TD VALIGN="middle">Antal: <INPUT TYPE="TEXT" NAME="antal" size="3" VALUE="1"></TD>
<TD VALIGN="middle"><INPUT TYPE="image" SRC="vagn.jpg" NAME="submit" BORDER="0" WIDTH="48" HEIGHT="32"></TD>
<td width="1" bgcolor="#000000"></td>
</TR>
<%
rs.MoveNext
Loop
rs.Close
rs2.Close
MinCon.Close
%>
<TR height="1"><TD height="1" COLSPAN="7" BGCOLOR="#000000"></TD></TR>
</TABLE>
<%
Else
%>
Din sökning saknade matchning!
<%
End If
End If
%>
</FORM>
</BODY>
</HTML>
