<% 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 '# Changed to Goolge Adsense HTTPS @ Jan 2019 Andres Bohren 'Anzeige.gif anzeigen response.write "
" response.write "anzeige.gif" response.write "" %> <% response.write "
" %>
 

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!