I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
den nemeste måde at gøre det på er noget lig dette:
dit .asp document <% doprint = request.querystring("doprint") If doprint = "yes" Then response.write "<b>HEADER HEADER</a>" ' eller %> <!-- #include file="printheader.asp" --> <% Else <a href="?doprint=yes">Print</a> End If
' DIT INDHOLD
' og til slut når du vil have din footer If doprint = "yes" Then %> <!-- #include file="printheader.asp" --> <% End If %>
' 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, datoslut 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 & "')" strSQL = strSQL & " OR (datoslut 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
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 %>
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.