<% Dim connString 'connString = "PROVIDER=MSDASQL;" connString = "PROVIDER=SQLOLEDB;" connString = connString & "DRIVER=SQL Native Client;" connString = connString & "SERVER=ICESRV02;" connString = connString & "User ID=web;" connString = connString & "PWD=meitschibei;" connString = connString & "DATABASE=db_icewolf;" %><% '# Bannerverwaltung (banner.asp) '# Copyright © Juni 2001 Andres Bohren '# Revised for SQL @ Feb 2004 Andres Bohren '# Changed to Goolge Adsense @ Dez 2012 Andres Bohren 'Anzeige.gif anzeigen response.write "
" response.write "anzeige.gif" response.write "" '# DB Query Set objConn = CreateObject("ADODB.Connection") objConn.Open connString qSQL = "SELECT * FROM tBanner WHERE fActive = 1 ORDER BY fID" set objRS = CreateObject("ADODB.Recordset") objRS.Open qSQL, objConn, 3, 3 '# Zufallswert generieren Randomize selID = Int((objRS.recordcount) * Rnd(1251)) objRS.moveFirst For X = 1 to SelID objRS.movenext Next 'response.write "" & objRS("fAlt") & "" 'response.write "" 'response.write "" 'response.write "" %> <% pBannerID = objRS("fID") pIP = Request.ServerVariables("REMOTE_ADDR") pUserAgent = Request.ServerVariables("HTTP_USER_AGENT") ''# In Statistik Tabelle eintragen 'qSQL = "INSERT INTO tBannerStat (fBannerID, fAction, fDatum, fIP, fUserAgent) VALUES (" & pBannerID & ", 'view',getdate(),'" & pIP & "','" & pUserAgent & "');" qSQL = "INSERT INTO tBannerStat (fBannerID, fAction, fDatum, fIP, fUserAgent) VALUES (17, 'view',getdate(),'" & pIP & "','" & pUserAgent & "');" Set objRs = objConn.Execute(qSQL) response.write "
" '# Objekte zerstören 'objRS.close set objRS=Nothing objconn.close set ConnTemp=Nothing %>
 

Hallo Welt

Yes! Nun ist die Seite mit dem neuen Design da! Ausserdem ist der HTML Code nun in XHTML 1.0 erzeugt :o)


Service

Login:

Passwort:


<% If Session("Member") = "true" then response.write "

Hallo " & session("username") & "
Abmelden

" End if %> <% If session("admin") = "true" then response.write "Du bist Admin
" response.write "Admin Tool Abmelden" end if %>

Werbung

Stay secure

Navigation

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

© <%=MonthName(month(date), false)%> <%=" " & year(date)%>
Andres Bohren
<% CounterPath = request.Servervariables("APPL_PHYSICAL_PATH") & "\counter\counter.txt" Set objFSO = createObject("Scripting.FileSystemObject") '7 Host 'set objFile = objFSO.OpenTextFile("D:\User\Icewolf\counter.txt", 1) set objFile = objFSO.OpenTextFile(CounterPath, 1) Counter = objFile.Readline %>
<%for X= 1 to len(counter) Zahl= Mid(counter, X,1)%> <% next 'Objekte zerstören Set objFile = Nothing set objFSO = Nothing %>
seit 1.1.2000

Hash


 Wo befinde ich mich? [Home] [Service] Calculate Hash

MD5
SHA1
SHA256
SHA384
SHA512

Example: "Hello World!" / MD5: ED076287532E86365E841E92BFC50D8C

 

Valid XHTML 1.0! Valid CSS!