<% dim rubriekid rubriekid = request.querystring("rubriekid") if rubriekid = "" then rubriekid = 1 end if Dim strCon accessDB = "d:\www\party.nl\database\partya.mdb" strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strCon = strCon & accessDB & ";" Dim objCon Set objCon = Server.CreateObject ( "ADODB.Connection" ) objCon.Open strCon SQL = "SELECT * FROM rubriek order by volgorde" set objRec = objCon.execute(SQL) %>

Ben je van plan een feest te geven of moet je een party organiseren?

Zoek snel een partyservice of check 1 van de andere links.

Stap 1: Een partyservice in de regio:

<% dim regioid2 regioid2 = request.querystring("regioid") if regioid2 = "" then regioid2 = 3 end if SQL = "SELECT * FROM TopKlanten, regio WHERE regio = regioid AND regio= " & regioid2 & " order by volgorde" set objRec = objCon.execute(SQL) %>

Stap 2: Kies en klik:

<%= objRec.Fields("omschrijving").Value%>

<% Do While Not objRec.EOF %> <% objRec.MoveNext Loop %>

" target="_blank"><%=objRec("bedrijfsnaam")%>

Forums

Uw bedrijf op Party.nl?

Link partners

	Laatste Nieuws

Makkelijk geld verdienen?

Sneller Internetten?

<% objRec.Close Set objRec = Nothing objCon.close set objCon = Nothing %>