Her er koden til sitet:
<% Response.Buffer = True %>
<html><head>
<title></title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
scrollbar-darkshadow-color: #D3E2D3;
scrollbar-shadow-color: #D3E2D3;
scrollbar-3dlight-color: #D3E2D3;
scrollbar-face-color: #D3E2D3;
scrollbar-arrow-color: #D3E2D3;
scrollbar-track-color: #D3E2D3;
scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("usgkundesearch.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, nummer, forhandlernavn, forhandleradr, forhandlerpostnr, forhandlerby, forhandlertele, kundenavn, kundeadr, kundepostnr, kundeby, kundetele, kundeemail, type, kundeudstyr, dato, kundefejl, kunderep, kundepris, status FROM usgdatabase WHERE"
strSQL = strSQL & " (nummer LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlerpostnr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlerby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlertele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundenavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeadr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundepostnr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundetele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeemail LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (type LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeudstyr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (dato LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundefejl LIKE '" & strKeyword & "')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<table border=1>"
Response.Write "<th>USG nummer</th><th>Status</th>"
Response.Write "<tr><td><font color=blue> " & rs("nummer") & "</td>"
Response.Write "<td><font color=blue>" & rs("status") & "</td></tr>"
Response.Write "</table>"
Response.Write "<th>···</th>"
Response.Write "<table border=1>"
Response.Write "<th>Forhandlernavn</th><th>Adresse</th><th>Postnummer</th><th>By</th><th>Telefon</th>"
Do While Not rs.EOF
Response.Write "<tr><td><font color=red> " & rs("forhandlernavn") & "</td>"
Response.Write "<td><font color=red> " & rs("forhandleradr") & "</td>"
Response.Write "<td><font color=red> " & rs("forhandlerpostnr") & "</td>"
Response.Write "<td><font color=red> " & rs("forhandlerby") & "</td>"
Response.Write "<td><font color=red> " & rs("forhandlertele") & "</td></tr>"
Response.Write "</table>"
Response.Write "<th>···</th>"
Response.Write "<table border=1>"
Response.Write "<th>Kundenavn</th><th>Adresse</th><th>Postnummer</th><th>By</th><th>Telefon</th><th>Email</th>"
Response.Write "<tr><td><font color=blue> " & rs("kundenavn") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundeadr") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundepostnr") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundeby") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundetele") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundeemail") & "</td></tr>"
Response.Write "</table>"
Response.Write "<th>···</th>"
Response.Write "<table border=1>"
Response.Write "<th>Reparations model</th><th>Ekstra udstyr</th><th>Dato</th>"
Response.Write "<tr><td><font color=blue> " & rs("type") & "</td>"
Response.Write "<td><font color=blue> " & rs("kundeudstyr") & "</td>"
Response.Write "<td><font color=blue> " & rs("dato") & "</td></tr>"
Response.Write "</table>"
Response.Write "<th>···</th>"
Response.Write "<table border=1>"
Response.Write "<th>Fejlbeskrivelse</th><th>"
Response.Write "<tr><td><font color=blue> " & rs("kundefejl") & "</td>"
Response.Write "</table>"
Response.Write "<th>···</th>"
Response.Write "<table border=1>"
Response.Write "<th>Følgende udført</th>"
Response.Write "<tr><td><font color=blue> " & rs("kunderep") & "</td></tr>"
Response.Write "</table>"
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p><font color=red> Dette USG nummer er ikke registreret hos os, måske har vi endnu ikke indtastet din reparation.</p>"
Response.Write "<p><font color=red> Prøv venligst igen senere.</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
<button onclick="window.print()"><FONT SIZE="-1" FACE="Tahoma"><B>udskriv
side</B></FONT></button>
</body></html>
Ny bruger
Nybegynder
Opret
Preview
