ASP zu PHP

Einklappen
X
Einklappen
 
  • Seite von 1
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge
Vorherige template Weiter
  • #1

    ASP zu PHP

    wie kann ich bitte folgendes asp-script in php umschreiben?

    <% Response.expires=0 %>
    <HTML>
    <HEAD>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
    <TITLE>Anmeldeformular</TITLE>
    <LINK rel=stylesheet href="http://www.inode.at/ayin/colors.css" type="text/css">

    <style>
    all.clsMenuItemNS{font: bold x-small Verdana; color: white; text-decoration: none;}
    .clsMenuItemIE{text-decoration: none; font: bold xx-small Verdana; color: white; cursor: hand;}
    A:hover {color: red;}
    </style>


    </HEAD>

    <BODY bgcolor="#000000" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#CCCCFF" vlink="#FFCCCC" alink="#FFFFCC" background="sfback.jpg" bgproperties="fixed">

    <script language="JavaScript" src="http://www.inode.at/ayin/menu.js">
    </script>
    <script language="JavaScript" src="http://www.inode.at/ayin/menucontext.js"></script>
    <script language="JavaScript">
    showToolbar();
    </script>
    <script language="JavaScript">
    function UpdateIt(){
    if (document.all){
    document.all["MainTable"].style.top = document.body.scrollTop;
    setTimeout("UpdateIt()", 200);
    }
    }
    UpdateIt();
    </script>

    <%

    dim ConnDB, RS, SQLString
    Set ConnDB = Server.CreateObject("ADODB.Connection")
    ConnDB.ConnectionTimeout = 15
    ConnDB.CommandTimeout = 30
    ConnDB.Open "DBQ=" & Server.Mappath("..\ayin\Database\Anmeld.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

    if len(trim(Request.Form("Button"))) > 0 then
    on error resume next '---------- ganz mieessserrr fehlerbehandler!!!!!! mal wieder raus!!
    SQLString = " SELECT Count(tblanmeld.id) AS [xid] FROM tblanmeld;"
    Set xnr = Server.CreateObject("ADODB.Recordset")
    xnr.Open SQLString, ConnDB, 3, 3
    dim xidnr
    xidnr = xnr.Fields("xid").Value + 1
    xnr.Close
    set xnr = nothing

    SQLString = "SELECT * FROM tblAnmeld"
    Set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open SQLString, ConnDB, 3, 3
    RS.AddNew
    RS("xname") = Request.Form("fname")
    RS("xnick") = Request.Form("fnick")
    RS("xemail") = Request.Form("femail")
    RS("xtel") = Request.Form("ftel")
    RS("xicq") = Request.Form("ficq")
    RS("xnr") = xidnr
    'on error resume next '!!!!!!!!!!!!!!!!-> mal ändern
    RS.Update
    RS.Close
    set RS = nothing
    else
    'danke ausgeben
    end if
    %>
    <table border="0" cellspacing="0" cellpadding="0" align="center" width="720">
    <tr>
    <td>
    <div align="left">
    <p align="center"><font size="6" face="Verdana, Arial, Helvetica, sans-serif" color="#FFCC33"><i><b>Chattertreffen
    GRAZ</b></i></font><br>
    <hr size="1" noshade>
    </div>
    </td>
    </tr>
    </table>
    <form method="post" name="Formular" action="">
    <table border="0" cellspacing="0" cellpadding="5" align="center" width="720" height="527">
    <tr>
    <td width="235" height="367" valign="top">
    <table border="1" cellspacing="0" cellpadding="1" align="center" bordercolor="#666666">
    <tr>
    <td width="66" valign="middle" height="13" align="center">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">NAME:</font></div>
    </td>
    <td width="160" valign="middle" height="13">
    <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
    <input type="text" name="fname" size="30" maxlength="50">
    </font></div>
    </td>
    </tr>
    <tr>
    <td width="66" valign="middle" align="center">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">NICK:</font></div>
    </td>
    <td width="160" valign="middle">
    <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
    <input type="text" name="fnick" size="30" maxlength="50">
    </font></div>
    </td>
    </tr>
    <tr>
    <td width="66" valign="middle" align="center">
    <div align="right">
    <p align="center"><font color="#FFCC00" face="Verdana, Arial, Helvetica, sans-serif" size="2">TELEFON:</font></div>
    </td>
    <td width="160" valign="middle">
    <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
    <input type="text" name="ftel" size="30" maxlength="50">
    </font></div>
    </td>
    </tr>
    <tr>
    <td width="66" valign="top" align="center">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">E-MAIL:</font></div>
    </td>
    <td width="160" valign="top">
    <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
    <input type="text" name="femail" size="30" maxlength="50">
    </font></div>
    </td>
    </tr>
    <tr>
    <td width="66" valign="top" align="center">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">ICQ
    #:</font></div>
    </td>
    <td width="160" valign="top">
    <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
    <input type="text" name="ficq" size="30" maxlength="10">
    </font></div>
    </td>
    </tr>
    <tr>
    <td colspan="2" bgcolor="#666666">
    <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2">
    <input type="submit" name="Button" value="Anmelden!">
    <input type="reset" name="Button2" value="Löschen">
    <br>
    </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">-----
    BITTE NUR 1X KLICKEN -----</font><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">
    </font></div>
    </td>
    </tr>
    <tr>
    <td colspan="2" height="87">
    <div align="center"><img src="Graz.jpg" width="278" height="144"></div>
    </td>
    </tr>
    </table>
    </td>
    <td width="485" height="367" valign="top">
    <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><u><i>Hier
    k&ouml;nnt ihr euch online<br>
    f&uuml;r das n&auml;chste CT anmelden!</i></u></b></font></p>
    <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF">
    <tr>
    <td>
    <table width="100%" border="1" cellspacing="0" cellpadding="5">
    <tr>
    <td width="38%">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFCC00"><b><i>TERMIN
    </i></b></font></div>
    </td>
    <td width="62%"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><i>06.10.2001</i></b></font></td>
    </tr>
    <tr>
    <td width="38%">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFCC00"><b><i>ORT
    </i></b></font></div>
    </td>
    <td width="62%"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><i>GRAZ</i></b></font></td>
    </tr>
    <tr>
    <td width="38%">
    <div align="right">
    <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFCC00"><b><i>LOCATION
    </i></b></font></div>
    </td>
    <td width="62%"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b><i>BIERBARON</i></b></font></td>
    </tr>
    </table>
    </td>
    </tr>
    </table>
    <br>
    <div align="left">
    <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF">
    <tr>
    <td>
    <table width="100%" border="1" cellspacing="0" cellpadding="5">
    <tr>
    <td width="38%" height="17" bgcolor="#660000"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><u><b><font size="2">INFOS:
    </font></b></u> </font></td>
    <td width="62%" height="17" bgcolor="#000066"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><u><b><font size="2">LINKS:</font></b></u></font>
    </td>
    </tr>
    <tr>
    <td width="38%" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">BIERBARON<br>
    HEINRICHSTRASSE 56<br>
    8010 GRAZ<br>
    <br>
    BEGINN: 18.00 Uhr </font></td>
    <td width="62%" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="http://www.sms.at" target="_blank">SMS.at<br>
    </a><a href="http://www.uboot.com" target="_blank"><br>
    </a></font><br>
    <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="http://www.graztourismus.at/plan/grazplan.htm" target="_blank">STADTPLAN
    - GRAZ</a><br>
    <a href="http://www.graz.at/webcam/main.htm" target="_blank">LIVE
    WEBCAM_- GRAZ</a><br>
    <a href="http://www.graz.at/karten/main.php3" target="_blank">E-CARD
    AUS GRAZ</a></font><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b></b></font></td>
    </tr>
    </table>
    </td>
    </tr>
    </table>
    <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font>
    <hr size="1" noshade align="center">
    <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
    </font></div>
    </td>
    </tr>
    <tr>
    <td colspan="2" valign="top" height="140"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">BITTE
    F&Uuml;LLT ALLE FELDER AUS ( SOWEIT ES M&Ouml;GLICH IST ) , BEIM NAMEN
    TUTS DER VORNAME ALLEINE UND BEI TELEFON K&Ouml;NNT IHR AUCH EURE UBOOT
    SMS-NUMMER ODER SMS.at NUMMER EINTRAGEN... <font color="#FF0000">...UND
    TRAGT KEINEN MIST EiN BITTE !!!</font></font>
    <hr size="1" noshade align="center">
    <p>&nbsp;
    <div align="left">
    <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF">
    <tr>
    <td>
    <table width="100%" border="1" cellspacing="0" cellpadding="5">
    <tr>
    <td width="51%" height="17" bgcolor="#660000"> <u><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Hotels</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></u> </td>
    <td width="49%" height="17" bgcolor="#000066"> &nbsp;
    </td>
    </tr>
    <tr>
    <td width="51%" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">HENDL
    ECK<br>
    GRABENSTRASSE
    12<br>
    TEL+FAX: 0316/68-65-58
    </font></td>
    <td width="49%" valign="top"><a href="http://www.teuschler.at/pe/hotel.htm" target="_blank"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">PENSION
    TEUSCHLER</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><br>
    MARIATROSTERSTRASSE
    12<br>
    </font></a><a href="http://www.graz.at/webcam/main.htm" target="_blank"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">TEL:
    0316/32-14-48<br>
    FAX: 0316/31-14-48-4<br>
    </font></a><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">e-mail:
    <a href="mailto:hotel@teuschler.at">hotel@teuschler.at</a></font></td>
    </tr>
    </table>
    </td>
    </tr>
    </table>
    </div>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr><td></td></tr>
    </table>
    <p>&nbsp;
    </td>
    </tr>
    </table>
    <br>
    </form>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr><td></td><td></td></tr>
    </table>
    <table border="0" cellspacing="0" cellpadding="0" align="center" width="720">
    <tr>
    <td>
    <p><i><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFCC00">Bereits
    angemeldete Teilnehmer:</font></i></p>
    </td>
    </tr>
    <tr>
    <td>
    <hr size="1" noshade>
    </td>
    </tr>
    </table>
    <div align="center">
    <div align="left"><br>
    </div>
    </div>
    <table width="720" cellspacing="0" cellpadding="1" align="center" border="1" bordercolor="#333333">
    <tr bgcolor="#666666">
    <td width="25" height="28">
    <div align="center"><font size="2">&nbsp;#</font></div>
    </td>
    <td width="200" height="28">
    <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">NAME</font></font></div>
    </td>
    <td colspan="2" height="28">
    <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">NICKNAME</font></font></div>
    </td>
    <td colspan="2" height="28">
    <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">E-M@IL</font></font></div>
    </td>
    <td colspan="2" height="28">
    <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
    </font><font face="Verdana, Arial, Helvetica, sans-serif">TELEFON</font></font></div>
    </td>
    <td colspan="2" width="83" height="28">
    <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ICQ</font><font size="1">
    <img src="icq-blume.gif" width="25" height="25" align="absmiddle"></font></div>
    </td>
    </tr>
    <%
    dim xsql
    dim gb
    sql = "SELECT * FROM tblanmeld ORDER BY tblanmeld.id DESC;"
    Set gb = Server.CreateObject("ADODB.Recordset")
    gb.Open SQL, ConnDB, 3, 3
    On Error Resume Next
    gb.MoveFirst
    do while Not gb.eof
    %>
    <tr valign="middle">
    <td width="25">
    <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><%=Server.HTMLEncode(gb.Fields("xnr").Value)%></font></div>
    </td>
    <td width="200">
    <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xname").Value)%></font></div>
    </td>
    <td colspan="2">
    <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xnick").Value)%></font></div>
    </td>
    <td colspan="2">
    <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><a href="mailto:<%=Server.HTMLEncode(gb.Fields("xemail").Value)%> ">
    </a></font><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><a href="mailto:<%=Server.HTMLEncode(gb.Fields("xemail").Value)%> "><%=Server.HTMLEncode(gb.Fields("xemail").Value)%></a></font></div>
    </td>
    <td colspan="2">
    <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00">
    </font><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xtel").Value)%></font></div>
    </td>
    <td colspan="2" width="83">
    <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xicq").Value)%><font color="#000000">.</font></font></div>
    </td>
    </tr>
    <%
    gb.MoveNext
    loop
    gb.close
    set ConnGB = nothing
    ConnGB.close
    %>
    </table>
    <p></p>
    <table border="0" cellspacing="0" cellpadding="0" align="center" width="720">
    <tr>
    <td>
    <hr size="1" noshade>
    </td>
    </tr>
    <tr>
    <td>
    <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFCC00"><b>&copy;
    by<font color="#FFCC33"> <a href="http://www.inode.at/ayin/index2.html">Ayin</a>
    &amp; <a href="http://www.inode.at/ayin/mail.htm">EMail</a></font></b></font>
    </div>
    </td>
    </tr>
    </table>
    <br>
    </BODY>
    </HTML>
    Stichworte: -
  • #2
    hi,
    also erstmal würde ich Dir empfehlen, dein "Script" auf eine vernünftige Länge zu kürzen (HTML-Code entfernen usw.).
    Dann kann ich Dir nur folgende Library für PHP empfehlen, die Dir den Umstieg auf PHP erleichtern wird.

    http://freshmeat.net/projects/adodb/

    Die PHP-Syntax wurde hier so angepasst, daß Leute die von der ASP/VB Schiene kommen, ohne Probleme damit arbeiten können.

    Gruß
    deep
    http://www.x-tremedev.de

    Kommentar

    • #3
      Hier die gekürzte version mit nur mehr den Pflichtfeldern:

      <% Response.expires=0 %>
      <HTML>
      <HEAD>
      <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
      <TITLE>Anmeldeformular</TITLE>
      </HEAD>

      <BODY bgcolor="#000000" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#CCCCFF" vlink="#FFCCCC" alink="#FFFFCC" background="sfback.jpg" bgproperties="fixed">

      <%

      dim ConnDB, RS, SQLString
      Set ConnDB = Server.CreateObject("ADODB.Connection")
      ConnDB.ConnectionTimeout = 15
      ConnDB.CommandTimeout = 30
      ConnDB.Open "DBQ=" & Server.Mappath("..\ayin\Database\Anmeld.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

      if len(trim(Request.Form("Button"))) > 0 then
      on error resume next '---------- ganz mieessserrr fehlerbehandler!!!!!! mal wieder raus!!
      SQLString = " SELECT Count(tblanmeld.id) AS [xid] FROM tblanmeld;"
      Set xnr = Server.CreateObject("ADODB.Recordset")
      xnr.Open SQLString, ConnDB, 3, 3
      dim xidnr
      xidnr = xnr.Fields("xid").Value + 1
      xnr.Close
      set xnr = nothing

      SQLString = "SELECT * FROM tblAnmeld"
      Set RS = Server.CreateObject("ADODB.Recordset")
      RS.Open SQLString, ConnDB, 3, 3
      RS.AddNew
      RS("xname") = Request.Form("fname")
      RS("xnick") = Request.Form("fnick")
      RS("xemail") = Request.Form("femail")
      RS("xtel") = Request.Form("ftel")
      RS("xicq") = Request.Form("ficq")
      RS("xnr") = xidnr
      'on error resume next '!!!!!!!!!!!!!!!!-> mal ändern
      RS.Update
      RS.Close
      set RS = nothing
      else
      'danke ausgeben
      end if
      %>
      <table border="0" cellspacing="0" cellpadding="0" align="center" width="720">
      </table>
      <table border="1" cellspacing="0" cellpadding="1" align="center" bordercolor="#666666" height="180">
      <tr>
      <td width="66" valign="middle" height="23" align="center">
      <div align="right">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">NAME:</font></div>
      </td>
      <td width="160" valign="middle" height="23">
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
      <input type="text" name="fname" size="30" maxlength="50">
      </font></div>
      </td>
      </tr>
      <tr>
      <td width="66" valign="middle" align="center" height="23">
      <div align="right">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">NICK:</font></div>
      </td>
      <td width="160" valign="middle" height="23">
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
      <input type="text" name="fnick" size="30" maxlength="50">
      </font></div>
      </td>
      </tr>
      <tr>
      <td width="66" valign="middle" align="center" height="23">
      <div align="right">
      <p align="center"><font color="#FFCC00" face="Verdana, Arial, Helvetica, sans-serif" size="2">TELEFON:</font></div>
      </td>
      <td width="160" valign="middle" height="23">
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
      <input type="text" name="ftel" size="30" maxlength="50">
      </font></div>
      </td>
      </tr>
      <tr>
      <td width="66" valign="top" align="center" height="23">
      <div align="right">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">E-MAIL:</font></div>
      </td>
      <td width="160" valign="top" height="23">
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
      <input type="text" name="femail" size="30" maxlength="50">
      </font></div>
      </td>
      </tr>
      <tr>
      <td width="66" valign="top" align="center" height="23">
      <div align="right">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">ICQ
      #:</font></div>
      </td>
      <td width="160" valign="top" height="23">
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
      <input type="text" name="ficq" size="30" maxlength="10">
      </font></div>
      </td>
      </tr>
      <tr>
      <td colspan="2" bgcolor="#666666" height="38">
      <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <input type="submit" name="Button" value="Anmelden!">
      <input type="reset" name="Button2" value="Löschen">
      <br>
      </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">-----
      BITTE NUR 1X KLICKEN -----</font></div>
      </td>
      </tr>
      <tr>
      <td colspan="2" height="1">
      <div align="center">&nbsp;</div>
      </td>
      </tr>
      </table>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <table border="0" cellspacing="0" cellpadding="0" align="center" width="720">
      <tr>
      <td>
      <p><i><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFCC00">Bereits
      angemeldete Teilnehmer:</font></i></p>
      </td>
      </tr>
      <tr>
      <td>
      <hr size="1" noshade>
      </td>
      </tr>
      </table>
      <div align="center">
      <div align="left"><br>
      </div>
      </div>
      <table width="720" cellspacing="0" cellpadding="1" align="center" border="1" bordercolor="#333333">
      <tr bgcolor="#666666">
      <td width="25" height="28">
      <div align="center"><font size="2">&nbsp;#</font></div>
      </td>
      <td width="200" height="28">
      <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">NAME</font></font></div>
      </td>
      <td colspan="2" height="28">
      <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">NICKNAME</font></font></div>
      </td>
      <td colspan="2" height="28">
      <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">E-M@IL</font></font></div>
      </td>
      <td colspan="2" height="28">
      <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">
      </font><font face="Verdana, Arial, Helvetica, sans-serif">TELEFON</font></font></div>
      </td>
      <td colspan="2" width="83" height="28">
      <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ICQ</font><font size="1">
      <img src="icq-blume.gif" width="25" height="25" align="absmiddle"></font></div>
      </td>
      </tr>
      <%
      dim xsql
      dim gb
      sql = "SELECT * FROM tblanmeld ORDER BY tblanmeld.id DESC;"
      Set gb = Server.CreateObject("ADODB.Recordset")
      gb.Open SQL, ConnDB, 3, 3
      On Error Resume Next
      gb.MoveFirst
      do while Not gb.eof
      %>
      <tr valign="middle">
      <td width="25">
      <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><%=Server.HTMLEncode(gb.Fields("xnr").Value)%></font></div>
      </td>
      <td width="200">
      <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xname").Value)%></font></div>
      </td>
      <td colspan="2">
      <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xnick").Value)%></font></div>
      </td>
      <td colspan="2">
      <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><a href="mailto:<%=Server.HTMLEncode(gb.Fields("xemail").Value)%> ">
      </a></font><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><a href="mailto:<%=Server.HTMLEncode(gb.Fields("xemail").Value)%> "><%=Server.HTMLEncode(gb.Fields("xemail").Value)%></a></font></div>
      </td>
      <td colspan="2">
      <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00">
      </font><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xtel").Value)%></font></div>
      </td>
      <td colspan="2" width="83">
      <div align="left"><font size="1"></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFCC00"><font color="#000000">.</font><%=Server.HTMLEncode(gb.Fields("xicq").Value)%><font color="#000000">.</font></font></div>
      </td>
      </tr>
      <%
      gb.MoveNext
      loop
      gb.close
      set ConnGB = nothing
      ConnGB.close
      %>
      </table>
      </BODY>
      </HTML>

      Kommentar

      Vorherige template Weiter
      Lädt...
      X