if IsNumeric(url) then response.write(\"Det er et tal!\") else response.write(\"det er tekst\") end if else response.write(\"Der er ikke angivet nogen side\") end if %> </BODY> </HTML>
så hvis det er et tal, foretages et opslag i databasen med følgende grundkode:
Set dbConn = Server.CreateObject(\"ADODB.Connection\") dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\") SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\" set RS = dbconn.execute(SQL)
Der skal sikkert noget AND ind... Nummer hedder ArticleID i Articles
Logikken er: Hvis eof eller sådan noget, så skrives: Artikelnummer findes ikke!
Hvis der findes en ArticleId i Articles, der er accepted og = url så skrives: Artikelnummer findes!
if IsNumeric(url) then Set dbConn = Server.CreateObject(\"ADODB.Connection\") dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\") SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\" set RS = dbconn.execute(SQL) else response.write(\"det er tekst\") end if else response.write(\"Der er ikke angivet nogen side\") end if %> </BODY> </HTML>
Den skriver ikke noget - kun at det er tekst, hvis det er tekst. Hvis det er et tal skriver den ikke noget. Den skal skrive, om den er der eller ikke, når det er et tal :0)
if IsNumeric(url) then Set dbConn = Server.CreateObject(\"ADODB.Connection\") dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\") SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\" set RS = dbconn.execute(SQL) if rs.eof then response.write(\"Artiklen er der IKKE\") else response.write(\"Artiklen er DER\") end if set rs = nothing conn.close set conn = nothing else response.write(\"det er tekst\") end if else response.write(\"Der er ikke angivet nogen side\") end if %> </BODY> </HTML>
if IsNumeric(url) then Set dbConn = Server.CreateObject(\"ADODB.Connection\") dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\") SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\" set RS = dbconn.execute(SQL) if rs.eof then response.write(\"Artiklen er der IKKE\") else response.write(\"Artiklen er DER\") end if set rs = nothing dbconn.close set dbconn = nothing else response.write(\"det er tekst\") end if else response.write(\"Der er ikke angivet nogen side\") end if %> </BODY> </HTML>
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.
