Avatar billede minielsen Nybegynder
19. juni 2002 - 14:50 Der er 6 kommentarer og
1 løsning

Printform!!!!

Prøv at checke denne side.
http://www.comgrosinfo.dk/usgkundesearch.htm

Indtast 40374

Dette give et kort fra min database, nederst ses en print box, når der trykkes på denne udskrives siden, men hvordan undgår jeg at "udskriv side" boksen skrives med ud ????

Og er det muligt selv at definere hvad der skal skrives ud ???

Avatar billede minielsen Nybegynder
19. juni 2002 - 14:53 #1
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>
Avatar billede manon Nybegynder
19. juni 2002 - 14:53 #2
Jeg vil mene du ikke kan vælge hvad og hvordan clienten skal udgive - bla. ved du ikke hvilke og hvor mange printere jeg har inst.
Derfor tror jeg ikek du kan undgå at den kommer og spørger clienten om hvilken printer den vil udskrive fra.
Avatar billede barlach Nybegynder
19. juni 2002 - 15:04 #3
lav en onload="window.print()"
og fjern din knap
Avatar billede jakoba Nybegynder
19. juni 2002 - 15:10 #4
Du kan benytte media types til at specificere hvad der skal skrives ud http://www.w3.org/TR/REC-CSS2/media.html

mvh JakobA
Avatar billede minielsen Nybegynder
19. juni 2002 - 15:36 #5
hmm, jacoba har du et eksempel jeg kan prøve.
Avatar billede killer_r Nybegynder
19. juni 2002 - 16:49 #6
Avatar billede minielsen Nybegynder
20. juni 2002 - 12:53 #7
Tak for det.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi tilbyder markedets bedste kurser inden for webudvikling

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester