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.
<% \' Henter værdien fra soeg.htm strKeyword = Trim(Request.Form(\"Keyword\"))
strTabel = Trim(Request.Form(\"Tabel\"))
Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
strSQL = \"SELECT scenarier.Titel, benchmarking.Titel FROM scenarier, benchmarking WHERE (scenarier.Titel LIKE \'%\" & strKeyword & \"%\') OR (benchmarking.Titel LIKE \'%\" & strKeyword & \"%\')\"
\' Skaber DSNLess forbindelse til DBen strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"fagbibliotek.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 \"<p>Søgeresultat</p>\"
Response.Write \"<div align=left><table border=0 width=590 cellpadding=5 cellspacing=5>\" Response.Write \"<tr><td><b>Titel</b></td><td><b>Navn</b></td><td><b>Beskrivelse</b></td></tr></b>\" Do While Not rs.EOF Response.Write \"<tr><td valign=top>\" & rs(\"Titel\") & \"</td>\"
Nej jeg får ingen fejl, men den henter bare ikke noget fra den den første tabel. Tilgengæld så skriver den flere gange det den finder i den anden tabel
strSQL = \"SELECT Titel FROM scenarier WHERE Titel LIKE \'%\" & strKeyword & \"%\') UNION SELECT Titel FROM benchmarking WHERE Titel LIKE \'%\" & strKeyword & \"%\')\"
i stedet for din nuværende: strSQL = \"SELECT scenarier.Titel, benchmarking.Titel FROM scenarier, benchmarking WHERE (scenarier.Titel LIKE \'%\" & strKeyword & \"%\') OR (benchmarking.Titel LIKE \'%\" & strKeyword & \"%\')\"
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.