<% Dim propertyID %> <% propertyID = request.QueryString("propertyID") accessdb="konkurranse.mdb" cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) Set rs = Server.CreateObject("ADODB.Recordset") sql= "select [Master].[Premie], [Master].[Beskrivelse], [Master].[Firma], [Master].[Url], [Master].[Slutt], [Master].[Kategori], [Master].[Godkjent] from Master where ((([Master].[Kategori])='"& propertyID &"') AND (([Master].[Godkjent])='JA')) order by id DESC" rs.Open sql, cn %>
konkurranser og atter konkurranse muligheter men også gratis ting!
| hovedside | alle konkurranser | gratis på nettet |

     :: Lucky loosers - for alle dere som ikke har vunnet noe, fortvil ikke !! HER ER ALT GRATIS !











hjem/<%= propertyID %>

GRATIS TING PÅ NETTET

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %>

" target="_blank"> <%= rs("Premie") %> fra <%= rs("Firma") %>
<%= rs("Beskrivelse") %>
<% rs.MoveNext loop%>

 
© 2012 Konkurranseguiden.no, Inc. All rights reserved. Terms of Use and Disclaimer