smart script
Er der en smart måde at forenkle denne kode på. Den skal foretages 18 gange, hvor 18 forskellige felter i databasen checkes for indhold. Altså om de er tomme eller ej. Håber meningen kan ses.<%
Dim thumbrec
Dim inforec
ID = request.querystring("id")
strDBPath = Server.MapPath("../db/db.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
set thumbrec = objConn.execute("select * from thumbs where id=" & ID & ";")
set inforec = objConn.execute("select * from info where id=" & ID & ";")
if not thumbrec("th1") = "" then
th1 = "<a href='show.asp?id=" & ID & "&img=10'><img src='../thumbs/" & thumbrec("th10") & "' alt='" & thumbrec("th10alt") & "' width='80' height='80' border='0' /></a>"
else
th1 = "<img src='../thumbs/tomt.gif' width='80' height='80' border='0' />"
end if
th18= thumbrec("th18")
%>
<html>
<td><%= th1 %></td>
<html>
