---
title: "Hela koden på mina trubbel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/javascript/18400-hela-koden-på-mina-trubbel"
topic: "JavaScript"
topic_url: "https://www.webforum.nu/amne/javascript"
author: "The_L"
published: "2001-10-28T17:11:00.000Z"
updated: "2001-10-28T21:20:00.000Z"
replies: 1
views: 88
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/javascript/18400-hela-koden-på-mina-trubbel"
---

# Hela koden på mina trubbel

## #1 — The_L, 2001-10-28T17:11Z

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"\>&#160;\</TD\>
\<TD WIDTH="100"\>
\<SELECT NAME="plagg" SIZE="1"\>
\<OPTION VALUE="0"\>\[ V&auml;lj plagg \]
\<OPTION VALUE="1"\>Jacka
\<OPTION VALUE="2"\>Sko	
\<OPTION VALUE="3"\>Tr&ouml;ja	
\<OPTION VALUE="4"\>T-Shirt&#160;
\<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&aring;ste v&auml;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&ouml;ljande plagg matchade din s&ouml;kning:\</CAPTION\>

\<%	

	rs.MoveFirst
	Do Until rs.EOF
%\>
\<TR\>\<TD\>&#160;\</TD\>
\<TD bgcolor="#6699ff" COLSPAN="5"\>\<%=rs("Marke")%\>\</TD\>\<td width="1" bgcolor="#000000"\>\</td\>
\</TR\>
\<TR\>\<TD\>&#160;\</TD\>
\<TD\>\<%=rs("Beskrivning")%\>
\<BR\>Pris: \<%=rs("Pris")%\>&#160;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&auml;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&ouml;kning saknade matchning!
\<%
End If
End If
%\>

\</FORM\>
\</BODY\>
\</HTML\>

Permalänk: https://www.webforum.nu/p/18400

## #2 — netfeed, 2001-10-28T21:20Z

urk va mycke kod :)

Permalänk: https://www.webforum.nu/p/335080

---

Tråden på webben: https://www.webforum.nu/amne/javascript/18400-hela-koden-på-mina-trubbel
