her er min kode:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/capitol.asp" -->
<%
Dim brand
Dim brand_numRows
Set brand = Server.CreateObject("ADODB.Recordset")
brand.ActiveConnection = MM_capitol_STRING
brand.Source = "SELECT * FROM brand ORDER BY Brand ASC"
brand.CursorType = 0
brand.CursorLocation = 2
brand.LockType = 1
brand.Open()
brand_numRows = 0
%>
<%
Dim category
Dim category_numRows
Set category = Server.CreateObject("ADODB.Recordset")
category.ActiveConnection = MM_capitol_STRING
category.Source = "SELECT * FROM category ORDER BY Category ASC"
category.CursorType = 0
category.CursorLocation = 2
category.LockType = 1
category.Open()
category_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
' Replace funktion
Function VBreplace(thetext)
If isNull(thetext) Then thetext = ""
newstring = Replace(cStr(thetext),"'","|pE|")
newstring = Replace(newstring,"\","\\")
VBreplace = newstring
End Function
If (Not brand.EOF) Then
'Her laver vi JS array udfra DB udtræk
Response.Write("<sc" & "ript type=""text/javascript"">"&chr(10))
Response.Write("var what = new Array();"&chr(10))
oldmainid = 0
newmainid = brand("IDbrand")
If (Not IsNumeric(newmainid)) Then
newmainid = cStr(newmainid)
End If
If (oldmainid = newmainid) Then
oldmainid = ""
End If
n = 0
While (Not brand.EOF)
If (oldmainid <> newmainid) Then
Response.Write("what[" & n & "] = new Array();"&chr(10))
Response.Write("what[" & n & "][0] = '" & VBreplace(newmainid) & "';"&chr(10))
m = 1
End If
Response.Write("what[" & n & "][" & m & "] = new Array();"&chr(10))
Response.Write("what[" & n & "][" & m & "][0] = " & "'" & VBreplace(brand("ID")) & "'" & ";" &chr(10))
Response.Write("what[" & n & "][" & m & "][1] = " & "'" & VBreplace(brand("fabrikantNavn")) & "'" & ";" &chr(10))
m = m +1
If (cStr(oldmainid) = "0") Then
oldmainid = newmainid
End If
oldmainid = newmainid
brand.MoveNext()
If (Not brand.EOF) Then
newmainid = brand("IDbrand")
End If
If (Not IsNumeric(newmainid)) Then
newmainid = cStr(newmainid)
End If
If (oldmainid <> newmainid) Then
n=n+1
End If
Wend
Response.Write("var brand_what = what;"&chr(10))
Response.Write("what = null;"&chr(10))
Response.Write("</sc" & "ript>"&chr(10))
End If
If (Not brand.BOF) Then
brand.MoveFirst()
End If
%>
<script type="text/JavaScript">
ALT JAVA har jeg slet ikke rørt
</script>
</head>
<body>
<form method="post" action="">
<table border="0" cellpadding="3">
<tr>
<td>
<p><select name="brand" id="brand" onChange="makeSubList(brand_what,findObj('brand'),findObj('category'),0,0,false,':');enableSel('category');">
<option value="">Choose brand</option>
<%
strSQL = "SELECT * FROM brand WHERE dBvalg = 1"
Set rs = conn.Execute(strSQL)
Do
%>
<option value="<% Response.Write rs("ID") %>"><% Response.Write rs("fabrikantNavn") %></option>
<%
rs.MoveNext
Loop While Not rs.EOF
rs.Close
%>
</select></p>
<p><select name="category" class="text" id="category" disabled>
<option value="">Choose category</option>
<%
strSQL = "select * from category"
Set rs = conn.Execute(strSQL)
Do
%>
<option value="<% Response.Write rs("ID") %>"><% Response.Write rs("fabrikantNavn") %></option>
<%
rs.MoveNext
Loop While Not rs.EOF
%>
</select></p></td>
</tr>
</table>
</form>
</body>
</html>
<%
brand.Close()
Set brand = Nothing
%>
<%
category.Close()
Set category = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
