> Start
> Länkar
> Badplatser bara
> Om oss
> Alla badplatser
> Kontakta
|
Välkommna till badtempertur.nu
Hej Alla badsugna!!.
Detta är värdens bästa Tempratur sida
Det är bara för er att söka eller klicka på ert Landskap
Så kommer alla bad platser´s Temprtaturer Komma upp
Som finns inne så klart!!!!!!!!!
Det är bara att söka och klicka så mycket ni kan
Vi önskar er ett riktigt härligt bad
Med Vänliga Hälsningar Familjen Ekberg.
|
::
Sök badplatser ::
|
<%Dim Con
Dim SQL
Dim RS
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.MapPath("db/Sök.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
Det finns totalt <% Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/Sök.mdb")&";"
SQL = "SELECT Count(*) From lank"
Set rs = db.Execute(SQL)
%> <%=RS.Fields(0) %> Badplatser i Arkivet.
<%
If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på " & Request.Form("sokord") & " gav följande träffar.
" & vbCrLf
SQL = "Select * from lank Where Kolumnen Like '%" & Request.Form("sokord") & "%' "
SET RS = Con.Execute(SQL)
While Not RS.EOF
Response.Write ""& RS("url") &"
" & vbCrLf
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>
<%
Con.Close
Set Con = Nothing
%>
|
|
|