hiho, ich hab da nen script und wollte versuche das verzweifelt durch meine webmatrix laufen zu lassen. es tritt ständig ein kompilierungsproblem. kann jemand diesen code mal kompen und mir da den fehler findig machen? er sagt er akzeptiert nur eine page-direktive, ich sehe da nur eine und nicht mehr... plz
(das ist nen script eines gästebuches)
<html>
<head>
</head>
<body>
<form runat="server">
<% @ Language="VBScript"
LCID = 1031 %><%
Option Explicit
Response.Buffer = true
Session.LCID = 1031
Public Submit, strName, strOrt, strEmail, strInternetSeite, strText, strConn, PageSize
Public FehlerName, FehlerText, Fehler, MaxLaengeText, FehlerMaxLaengeText, FehlerEmail
Public strTmpText
'Datenbank-Pfad, falls Sie ein anderer DBPfad
'verwenden, müssen Sie den Pfad hier ändern.
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("db\Gaestebuch.mdb")
'Anzahl der Datensätze pro Seite
PageSize = 10
'Wieviele Zeichen darf der Benutzer maximal eingeben?
'Eventuell für den Text in der DB ein Memofeld verwenden.
MaxLaengeText = 255
Submit = Request.Form("submit1")
strName = Request.Form("Name")
strOrt = Request.Form("Ort")
strEmail = Request.Form("Email")
strInternetSeite = Request.Form("InternetSeite")
strText = Request.Form("Text")
strTmpText = MyHTMLEncode(strText)
If len(strInternetSeite) > 0 Then
If LCase(Left(strInternetSeite,7)) <> "http://" Then
strInternetSeite = "http://" & strInternetSeite
End if
End if
Call HTMLHeader
Select Case Submit
Case "Zur Vorschau"
Call GBPruefung()
Call Formular()
Case "Eintragen"
Call GBPruefung
If Fehler Then
Call Formular()
Else
Call InDBEintragen()
Call EmailSenden()
Response.Redirect("Gaestebuch.asp")
End if
Case "Neu"
Call NeuerEintrag()
Call Formular()
Call SchreibeGBEintraege()
Case Else
Call Formular()
Call SchreibeGBEintraege()
End Select
Call HTMLFooter
Public Sub Formular() %>
</form>
<form action="Gaestebuch.asp" method="post">
<table cellspacing="3" cellpadding="0" width="550" align="center">
<tbody>
<tr bgcolor="#808080">
<td align="middle" colspan="2">
<font class="GBHeader">Mein Gästebuch <% If Submit = "Zur Vorschau" Then
Response.Write("- Vorschau")
End if %></font></td>
</tr>
<tr>
<td>
<table bgcolor="#e0e0e0">
<% If Fehler Then
%>
<tbody>
<tr>
<td align="middle" colspan="2">
<font class="Fehler1"><< Bitte füllen Sie alle Felder korrekt aus >> </font></td>
</tr>
<%
End if %><% If FehlerMaxLaengeText Then
%>
<tr>
<td align="middle" colspan="2">
<font class="Fehler2"><< Der verwendete Text ist zu lang, maximal erlaubte Länge: <% = MaxLaengeText %>Zeichen
>> </font></td>
</tr>
<%
End if %>
<tr>
<td align="left" width="300">
<% If FehlerName Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihr
Name:</font> </font></td>
<td align="right">
<input id="Name" type="text" maxlength="100" size="40" value="<% = strName %>" name="Name" />
</td>
</tr>
<tr>
<td>
<font size=+0>Woher kommen Sie (Optional)?:</font>
</td>
<td align="right">
<input id="Ort" type="text" maxlength="100" size="40" value="<% = strOrt %>" name="Ort" />
</td>
</tr>
<tr>
<td>
<% If FehlerEmail Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihre
Emailadresse:</font> </font></td>
<td align="right">
<input id="Email" type="text" maxlength="100" size="40" value="<% = strEmail %>" name="Email" />
</td>
</tr>
<tr>
<td>
<font size=+0>Ihre Internetseite (Optional):</font>
</td>
<td align="right">
<input id="InternetSeite" type="text" maxlength="100" size="40" value="<% = strInternetSeite %>" name="InternetSeite" />
</td>
</tr>
<tr>
<td colspan="2">
<hr color="#104070" noshade="noshade" />
</td>
</tr>
<tr>
<td colspan="2">
<% If FehlerText OR FehlerMaxLaengeText Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihr
Text für das Gästebuch:</font> </font></td>
</tr>
<tr>
<td colspan="2">
<textarea id="Text" name="Text" rows="5" cols="65"><% = strText %></textarea>
</td>
</tr>
<tr>
<td align="middle" colspan="2">
<input id="submit1" type="submit" value="Zur Vorschau" name="submit1" />
<% If Submit = "Zur Vorschau" OR Submit = "Eintragen" Then %>
<input id="submit1" type="submit" value="Eintragen" name="submit1" />
<% End if %>
<input id="reset1" type="reset" value="Löschen" name="reset1" />
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</form>
<form runat="server">
<%
End Sub
Public Sub SchreibeGBEintraege()
%><font size=+0>
<table width="550" align="center">
<tbody>
<tr>
<td>
<hr color="#202020" noshade="noshade" />
</td>
</tr>
<tr>
<td class="td2">
<font size=+0>Für einen Beitrag im Gästebuch füllen Sie bitte die Felder
(das ist nen script eines gästebuches)
<html>
<head>
</head>
<body>
<form runat="server">
<% @ Language="VBScript"
LCID = 1031 %><%
Option Explicit
Response.Buffer = true
Session.LCID = 1031
Public Submit, strName, strOrt, strEmail, strInternetSeite, strText, strConn, PageSize
Public FehlerName, FehlerText, Fehler, MaxLaengeText, FehlerMaxLaengeText, FehlerEmail
Public strTmpText
'Datenbank-Pfad, falls Sie ein anderer DBPfad
'verwenden, müssen Sie den Pfad hier ändern.
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("db\Gaestebuch.mdb")
'Anzahl der Datensätze pro Seite
PageSize = 10
'Wieviele Zeichen darf der Benutzer maximal eingeben?
'Eventuell für den Text in der DB ein Memofeld verwenden.
MaxLaengeText = 255
Submit = Request.Form("submit1")
strName = Request.Form("Name")
strOrt = Request.Form("Ort")
strEmail = Request.Form("Email")
strInternetSeite = Request.Form("InternetSeite")
strText = Request.Form("Text")
strTmpText = MyHTMLEncode(strText)
If len(strInternetSeite) > 0 Then
If LCase(Left(strInternetSeite,7)) <> "http://" Then
strInternetSeite = "http://" & strInternetSeite
End if
End if
Call HTMLHeader
Select Case Submit
Case "Zur Vorschau"
Call GBPruefung()
Call Formular()
Case "Eintragen"
Call GBPruefung
If Fehler Then
Call Formular()
Else
Call InDBEintragen()
Call EmailSenden()
Response.Redirect("Gaestebuch.asp")
End if
Case "Neu"
Call NeuerEintrag()
Call Formular()
Call SchreibeGBEintraege()
Case Else
Call Formular()
Call SchreibeGBEintraege()
End Select
Call HTMLFooter
Public Sub Formular() %>
</form>
<form action="Gaestebuch.asp" method="post">
<table cellspacing="3" cellpadding="0" width="550" align="center">
<tbody>
<tr bgcolor="#808080">
<td align="middle" colspan="2">
<font class="GBHeader">Mein Gästebuch <% If Submit = "Zur Vorschau" Then
Response.Write("- Vorschau")
End if %></font></td>
</tr>
<tr>
<td>
<table bgcolor="#e0e0e0">
<% If Fehler Then
%>
<tbody>
<tr>
<td align="middle" colspan="2">
<font class="Fehler1"><< Bitte füllen Sie alle Felder korrekt aus >> </font></td>
</tr>
<%
End if %><% If FehlerMaxLaengeText Then
%>
<tr>
<td align="middle" colspan="2">
<font class="Fehler2"><< Der verwendete Text ist zu lang, maximal erlaubte Länge: <% = MaxLaengeText %>Zeichen
>> </font></td>
</tr>
<%
End if %>
<tr>
<td align="left" width="300">
<% If FehlerName Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihr
Name:</font> </font></td>
<td align="right">
<input id="Name" type="text" maxlength="100" size="40" value="<% = strName %>" name="Name" />
</td>
</tr>
<tr>
<td>
<font size=+0>Woher kommen Sie (Optional)?:</font>
</td>
<td align="right">
<input id="Ort" type="text" maxlength="100" size="40" value="<% = strOrt %>" name="Ort" />
</td>
</tr>
<tr>
<td>
<% If FehlerEmail Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihre
Emailadresse:</font> </font></td>
<td align="right">
<input id="Email" type="text" maxlength="100" size="40" value="<% = strEmail %>" name="Email" />
</td>
</tr>
<tr>
<td>
<font size=+0>Ihre Internetseite (Optional):</font>
</td>
<td align="right">
<input id="InternetSeite" type="text" maxlength="100" size="40" value="<% = strInternetSeite %>" name="InternetSeite" />
</td>
</tr>
<tr>
<td colspan="2">
<hr color="#104070" noshade="noshade" />
</td>
</tr>
<tr>
<td colspan="2">
<% If FehlerText OR FehlerMaxLaengeText Then %><font class="Fehler2"><% Else %><font size=+0><% End if %>Ihr
Text für das Gästebuch:</font> </font></td>
</tr>
<tr>
<td colspan="2">
<textarea id="Text" name="Text" rows="5" cols="65"><% = strText %></textarea>
</td>
</tr>
<tr>
<td align="middle" colspan="2">
<input id="submit1" type="submit" value="Zur Vorschau" name="submit1" />
<% If Submit = "Zur Vorschau" OR Submit = "Eintragen" Then %>
<input id="submit1" type="submit" value="Eintragen" name="submit1" />
<% End if %>
<input id="reset1" type="reset" value="Löschen" name="reset1" />
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</form>
<form runat="server">
<%
End Sub
Public Sub SchreibeGBEintraege()
%><font size=+0>
<table width="550" align="center">
<tbody>
<tr>
<td>
<hr color="#202020" noshade="noshade" />
</td>
</tr>
<tr>
<td class="td2">
<font size=+0>Für einen Beitrag im Gästebuch füllen Sie bitte die Felder