Den vil ikke til venstre
HejJeg har prøvet men den vil ikke ligge sig i venstre side.. Nogen der kan rette det?? her er koden:
<html>
<head>
<p align="left">
<style type="text/css">
<!--
Response.write vbCrLf & "legend { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "button { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "html { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "input { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "textarea { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "select { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "option { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "form { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "p { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
-->
</style>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml" xml:lang="da">
<%
'//ÅBNER DATABASEFORBINDELSEN
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("**********.mdb")
Conn.Open DSN
'//SIDEN PÅBEGYNDES
Response.write vbCrLf & "<head>"
Response.write vbCrLf & "<title>Tilmeld</title>"
Response.write vbCrLf & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />"
Response.write vbCrLf & "<meta name=""author"" content=""Godekokke.dk"" />"
Response.write vbCrLf & "<meta http-equiv=""imagetoolbar"" content=""no"" />"
Response.write vbCrLf & "<meta http-equiv=""expires"" content=""0"" />"
Response.write vbCrLf & "<meta http-equiv=""pragma"" content=""no-cache"" />"
Response.write vbCrLf & "<style type=""text/css"">"
Response.write vbCrLf & "legend { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "button { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "html { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "input { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "textarea { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "select { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "option { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "form { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "p { font-family: Verdana; font-size: 8pt; color: #000000; float:left }"
Response.write vbCrLf & "body {background: #ffffff url('../j0289776.jpg') repeat; font: 85% verdana, sans-serif; color: #000000; text-align: left; }"
Response.write vbCrLf & "#søg {margin: 40px; float: left; width: 500px; text-align: left; }"
Response.write vbCrLf & "#tilmeld {margin: 40px; float: left; width: 200px; }"
Response.write vbCrLf & "form {margin: 0px; }"
Response.write vbCrLf & "legend {text-transform: capitalize; color: #000000; letter-spacing: 1px; }"
Response.write vbCrLf & "#select {width: 51%; text-transform: capitalize; }"
Response.write vbCrLf & ".button {text-transform: capitalize; }"
Response.write vbCrLf & "ul {list-style-type: square; }"
Response.write vbCrLf & "p {text-transform: none; }"
Response.write vbCrLf & ".liste1 {width: 150px; }"
Response.write vbCrLf & ".svar {color: #990000; text-transform: none; width: 100%; }"
Response.write vbCrLf & "</style>"
Response.write vbCrLf & "<body>"
Response.write vbCrLf & " <div id=""søg"">"
Response.write vbCrLf & " <form action=""find.asp?job=search"" method=""post"">"
Response.write vbCrLf & " <legend>søg kok ud fra specialitet</legend>"
Response.write vbCrLf & " <br />"
Response.write vbCrLf & " <select name=""search"" size=""1"">"
Response.write vbCrLf & " <option value=""alle"">Alle Specialiteter</option>"
Response.write vbCrLf & " <option value=""tjener"">Tjener</option>"
Response.write vbCrLf & " <option value=""service"">Service</option>"
Response.write vbCrLf & " <option value=""telt"">Telt</option>"
Response.write vbCrLf & " <option value=""lokaler"">Lokaler</option>"
Response.write vbCrLf & " <option value=""musik"">Musik</option>"
Response.write vbCrLf & " <option value=""oprydning"">Oprydning</option>"
Response.write vbCrLf & " <option value=""opvask"">Opvask</option>"
Response.write vbCrLf & " </select>"
Response.write vbCrLf & " <input class=""button"" type=""submit"" value=""search »"" /><br />"
Response.write vbCrLf & " <p>"
'//HVIS DER SØGES PÅ KOK
If Request.Querystring("job") = "search" Then
'//SÆTTER DATABASEN KLAR TIL AT LEVERE
strSQL = "Select * From tilmeld Order By efternavn Desc"
Set RS = Conn.Execute(strSQL)
'//HVIS DATABASEN ER TOM
If RS.BOF Or RS.EOF Then
'//SENDES DENNE MEDDELELSE
Response.write vbCrLf & " Der er ingen kokke tilmeldt databasen!<br />"
'//ELLERS ER DATABASEN IKKE TOM
Else
'//LAVER START PÅ EN UORDNET LISTE
Response.write vbCrLf & " <ul>"
'//OPRETTER EN VARIABLE SOM KAN BRUGES TIL AT SE, OM DER VAR GEVINST *G*
strsearchresult = "0"
'//LAVER ET LOOP SÅ JEG KAN FÅ DATA FRA DATABASEN UD
Do While Not RS.EOF
'//KIGGER RS("SPECIALITET") IGENNEM FOR AT SE OM DEN INDEHOLDER SØGNINGEN
If Instr(RS("specialitet"), Request.Form("search")) <> "0" Then
'//DA RS("SPECIALITET") GAV RESULTAT ÆNDRES VARIABEL STRSEACHRESULT
strsearchresult = strsearchresult + 1
'//LAVER START AF PUNKT PÅ UORDNET LISTE
Response.write vbCrLf & " <li>"
'//DA RS("SPECIALITET INDERHOLDER HVAD DER SØGES EFTER SKRIVES OPLYSNINGER OM KOK
Response.write vbCrLf & " <span class=""liste1"">Navn:</span>" & RS("fornavn") & " " & RS("efternavn") & "<br />"
Response.write vbCrLf & " <span class=""liste1"">Adresse:</span>" & RS("adresse") & "<br />"
Response.write vbCrLf & " <span class=""liste1""></span>" & RS("postnr") & " " & RS("by") & "<br />"
Response.write vbCrLf & " <span class=""liste1"">E-mail:</span>" & RS("email") & "<br />"
Response.write vbCrLf & " <span class=""liste1"">Telefon:</span>" & RS("telefon") & "<br />"
Response.write vbCrLf & " <span class=""liste1"">Mobil:</span>" & RS("mobil") & "<br />"
Response.write vbCrLf & " <span class=""liste1"">Fax:</span>" & RS("fax") & "<br />"
Response.write vbCrLf & " <tr><td>Billed:</td><td><a href=""" & rs("billede") & """ target=""_blank"">" & rs("billede") & "</a></td></tr><br />"
Response.write vbCrLf & " Specialitet:<br />"
'//LAVER START AF UORDNET UNDERLISTE
Response.write vbCrLf & " <ul>"
'//DA RS("SPECIALITET INDEHOLDER HVAD DER SØGES EFTER TRÆKKES DEN UD I KOMMASEPERET ARRAY
strsearchspecialitet = Split(RS("specialitet"),",")
'//LAVER EN LØKKE FOR AT SMIDE OPLYSNINGERNE UD PÅ PAPIRET
For a = LBound(strsearchspecialitet) To UBound(strsearchspecialitet)
'//SKRIVER SPECIALITETEN
Response.write vbCrLf & " <li>" & Replace(strsearchspecialitet(a),"_"," ") & "</li><br />"
'//FÅR LØKKEN TIL AT GENTAGE SIG
Next
'//LAVER AFSLUTNING PÅ UORDNET UNDERLISTE
Response.write vbCrLf & " </ul>"
'//LAVER AFSLUTNING AF PUNKT PÅ UORDNET LISTE
Response.write vbCrLf & " </li><br />"
'//AFSLUT GENNEMGANG AF RS("SPECIALITET
End If
'//GÅR TIL NÆSTE RECORDSÆT I DATABASEN
RS.MoveNext
'//LØKKEN PÅ LOOPET
Loop
'//AFSLUTTER UORDNET LISTE
Response.write vbCrLf & " </ul>"
'//HVIS VARIABLEN STRSEARCHRESULT STADIG ER 0 (INGEN MATCH FUNDNE PÅ SØGNINGEN)
If strsearchresult = "0" Then
'//SKRIVES DET, AT DER INGEN MATCH VAR PÅ SØGNINGEN
Response.write vbCrLf & " Der findes ingen kokke i databasen med " & Replace(Request.Form("search"),"_"," ") & " som specialitet<br /><br >"
'//AFSLUT HVIS SØGNING GAV NADA
End If
'//AFSLUT HVIS DATABASEN ER TOM
End If
'//LAVER EN TILBAGEKNAP TIL FORSIDEN
Response.write vbCrLf & " <br /><button class=""button"" onclick=""location.href='find.asp'"">til forside »</button><br />"
'//ELLERS VISES
Else
Response.write vbCrLf & " Find din kok, tjener eller lign<br />"
Response.write vbCrLf & " Her vil du være istand til at søge kokke tilmeldt databasen, ud fra deres specialiteter. Vælg blot specialitet i menuen ovenover og klik på search!<br />"
Response.write vbCrLf & " <br />"
Response.write vbCrLf & " Og se billedet af kokken!<br />"
Response.write vbCrLf & " </p>"
'//AFSLUT
End If
%>
<body background="***********">
</p>
</html>
