![[HaBo]](/styles/default/logoklein.png){kind=small}
Hallo,
habe leider ein riesieges Problem und komm echt nicht weiter. Suche seit Stunden nach den Fehler, aber leider erfolglos.
Ich arbeite seit ca 2 Tagen an einen ASP Voting script (siehe unten), es besteht aus mehreren Dateien, seine Funktion hat es eigneltich schon bewiesen, aber nach einer kleinen Änderung, eigentlich nur am Text, ging komischer Weise nichts mehr. (Arbeite übrigens mit den Dreamweaver) Wähle ich die Page mit einen Browser an, kommt nur der erste Teil von "4005-sb4k5_voting" zum Vorschein, und anschließend an der Stelle wo der ASP Code einsetzt:
>>Microsoft VBScript compilation error '800a0400'
Expected statement
/sh4003/seiten/news/4005-sb4k5_voting.asp, line 78
<MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22../vote/inc_config.asp%22--%3E" fileRef...
<<
Ihr seid im Prinzip meine letzte Hoffnung, weshalb ich mich an euch wende... .
Hier nun die 2 wichtigsten Dateien, die restlichen sind irrelevant, habe an ihnen nichts geändert.
Im Vorraus: Alle Pfadangaben ensprechen der Richtigkeit und sind geprüft, genauso wie Stilangaben oder ähnliches)
(Noch einige Nebenbemerkungen zum besseren Verständniss:
SH=SvennersHomepage
4005=Projektname
sb4k5=svennersbattle4005
Ach ja, fals die Frage auftreten sollte ob es eine New Vote Datei gibt: nein... )
Auch wenn die Fehlermeldung daruaf hin verweist kann dort unmöglich wein Fehler sein, da ich dort nichts verändert habe.
1. Datei:
4005-sb4k5_voting.asp
----------------------
---------------------------------
2. Datei inc_vote.asp
---------------------------------
--------------
Hier aber doch nochmal die poll.asp, auch wenn ich daran nichts verändert habe.
--------------
-------------------------------------------------------------
Vielelicht erkennt ein Profie unter euch auf den ersten Blick schon den Fehler. Kann ja nur irgendwas kleines sein.
Ich verstehs jedenfalls nicht.
Bitte schreibt was ihr dazu denkt...
Greets da Sven
habe leider ein riesieges Problem und komm echt nicht weiter. Suche seit Stunden nach den Fehler, aber leider erfolglos.
Ich arbeite seit ca 2 Tagen an einen ASP Voting script (siehe unten), es besteht aus mehreren Dateien, seine Funktion hat es eigneltich schon bewiesen, aber nach einer kleinen Änderung, eigentlich nur am Text, ging komischer Weise nichts mehr. (Arbeite übrigens mit den Dreamweaver) Wähle ich die Page mit einen Browser an, kommt nur der erste Teil von "4005-sb4k5_voting" zum Vorschein, und anschließend an der Stelle wo der ASP Code einsetzt:
>>Microsoft VBScript compilation error '800a0400'
Expected statement
/sh4003/seiten/news/4005-sb4k5_voting.asp, line 78
<MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22../vote/inc_config.asp%22--%3E" fileRef...
<<
Ihr seid im Prinzip meine letzte Hoffnung, weshalb ich mich an euch wende... .
Hier nun die 2 wichtigsten Dateien, die restlichen sind irrelevant, habe an ihnen nichts geändert.
Im Vorraus: Alle Pfadangaben ensprechen der Richtigkeit und sind geprüft, genauso wie Stilangaben oder ähnliches)
(Noch einige Nebenbemerkungen zum besseren Verständniss:
SH=SvennersHomepage
4005=Projektname
sb4k5=svennersbattle4005
Ach ja, fals die Frage auftreten sollte ob es eine New Vote Datei gibt: nein... )
Auch wenn die Fehlermeldung daruaf hin verweist kann dort unmöglich wein Fehler sein, da ich dort nichts verändert habe.
1. Datei:
4005-sb4k5_voting.asp
----------------------
Code:
<%@ LANGUAGE="VBSCRIPT" %>
<link href="../../Styles/sitestyles.css" rel="stylesheet" type="text/css">
<LINK REL="stylesheet" HREF="poll.css">
<style type="text/css">
<!--
.Stil1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr><td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" background="../../pics/Svennershomepage4003_Kl.jpg"><img src="../../pics/svennershomepage4003_Kl.jpg" width="1" height="2"></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#E9E9E9">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td align="left" background="../../pics/svennershomepage4003_LightBoxO.jpg"><img src="../../pics/svennershomepage4003_LightBoxO.jpg" width="1" height="3"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" bgcolor="#CCCCCC" class="News_Head">vom 02.06.4005</td>
</tr>
<tr>
<td bgcolor="#F3F3F3" class="Inhalt_Normal">
<table align="center">
<tr>
<td valign="top"><img src="pics/sb4k5.gif" width="300" height="288"></td>
<td valign="top">
<table>
<tr>
<td> </td>
</tr>
<tr>
<td>
<p align="center" class="Inhalt_Normal_gross">V O T I N G</p>
<p align="center" class="Inhalt_Normal_gross">"Battle of the "Warteschleife" 4005</p>
</td>
</tr>
<tr>
<td class="Inhalt_Normal">
</td>
</tr>
<tr>
<td class="Head_Main">1. Vorschlag #1 anhören</td>
</tr>
<tr>
<td class="Inhalt_Normal">
<p>Name: Royalcorn</p>
<p> </p></td>
</tr>
<tr><td><p align="left" class="Head_Main">2. Vorschlag #2 anhören </td></tr>
<tr>
<td class="Inhalt_Normal">
<p>Name: Beatboxer</p>
<p> </p></td>
</tr>
<tr><td><p align="left" class="Head_Main">3. Triff Deine Wahl </td></tr>
<tr>
<td class="Inhalt_Normal">
<%
<!--#include file="../vote/inc_vote.asp"-->
<!--#include file="../vote/inc_config.asp"-->
Dim myVote
Set myVote = New Vote
With myVote
.VoteID = "1"
.ResultPage = "/sh4003/seiten/vote/poll.asp"
.Vote_Text_Save = "Antwort speichern"
.Vote_Text_Result = "Ergebniss ansehen"
Response.Write .ShowVoteForm
End With
Set myVote = Nothing
%>
</td>
</tr>
<tr><td><p align="left" class="Head_Main">4. Hier kannst du fette Newsmails ordern...</td></tr>
<tr>
<tr>
<td class="Inhalt_Normal">
<p>
</p>
<p align="center" class="Inhalt_Normal_gross">Ende des Votings ende August<br>
</p>
</td>
</tr>
</table>
</td>
</tr>
</table>
Bei Fragen zum Wettbewerb steht Euch Sven per <a href="mailto:Svenner-4005@svennershomepage.de">E-Mail</a> oder telefonisch unter(Telnumber)zur Verfügung.
</td>
</tr>
</table>
</td>
</tr>
</table>
</tr>
</table>
</td>
<td width="1" background="../../pics/svennershomepage4003_Kr.jpg"><img src="../../pics/svennershomepage4003_Kr.jpg" width="1" height="2"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td background="../../pics/svennershomepage4003_KEnde2.jpg"><img src="../../pics/svennershomepage4003_KEnde1.jpg" width="55" height="12"></td>
<td background="../../pics/svennershomepage4003_KEnde2.jpg"><img src="../../pics/svennershomepage4003_KEnde2.jpg" width="3" height="12"></td>
<td align="right" background="../../pics/svennershomepage4003_KEnde2.jpg"><img src="../../pics/svennershomepage4003_KEnde3.jpg" width="58" height="12"></td>
</tr>
</table>
</td></tr>
</table>2. Datei inc_vote.asp
---------------------------------
Code:
<%
Class Vote
Public VoteID
Public ResultPage
Public Vote_Text_Save
Public Vote_Text_Result
Public Result_Width
Public Bar_Pic
Public dbVote
Public RsVote
Sub Class_Initialize()
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(DBVotePath)
Set dbVote = Server.CreateObject("ADODB.Connection")
Set RsVote = Server.CreateObject("ADODB.Recordset")
dbVote.open connSTR
End Sub
Sub Class_Terminate()
dbVote.Close
Set dbVote = Nothing
End Sub
Public Function InsertVote()
Response.Cookies("poll").Expires = dateadd("y", 1, now())
Response.Cookies("poll") ("ID") = VoteID
sqlCommand = "INSERT INTO Antworten (VoteID, OptionenID) VALUES ("
sqlCommand = sqlCommand & Request.Form("ID") & ", "
sqlCommand = sqlCommand & Request.Form("vote")
sqlCommand = sqlCommand & ")"
'Response.Write sqlCOmmand
set RsSave = dbVote.execute(sqlCommand)
End Function
Public Function ShowVoteForm()
Dim Return
sqlCommand = "SELECT * FROM vote WHERE ID=" & VoteID
RsVote.open sqlCommand, dbVote
if RsVote.EOF OR RsVote.BOF Then
ShowVoteForm = "ACHTUNG:<br>Poll nicht findbar!"
else
strFrage = RsVote.Fields("Frage")
RsVote.close
sqlCommand = "SELECT * FROM optionen WHERE VoteID=" & VoteID & " ORDER BY ID"
RsVote.open sqlCommand, dbVote
Return = "<form name=""poll"" METHOD=""POST"" ACTION=""" & ResultPage & """>"
Return = Return & "<table width=""90%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
Return = Return & "<tr>"
Return = Return & "<td align=""center"" class=""pollFrage"">" & vbcrlf
Return = Return & strFrage
Return = Return & "</td>"
Return = Return & "</tr>" & vbcrlf
if Request.Cookies("poll") ("ID") <> cstr(VoteID) then
Do While Not RsVote.EOF
Return = Return & "<tr>"
Return = Return & "<td class=""pollOptionen"" nowrap>" & vbcrlf
Return = Return & "<input type=""radio"" name=""vote"" value=""" & RsVote.Fields("ID") & """>" & vbcrlf
Return = Return & " "
if RsVote.Fields("Information") <> "" then
Return = Return & "<a href=""../vote/hilfe.asp?text=" & RsVote.Fields("Information") & """ target=""_blank"" class=""pollOptionen"">"
end if
Return = Return & RsVote.Fields("Text") & vbcrlf
if RsVote.Fields("Information") <> "" then
Return = Return & "</a>"
end if
Return = Return & "</td>"
Return = Return & "</tr>" & vbcrlf
RsVote.MoveNext
Loop
else
Return = Return & "<tr>"
Return = Return & "<td class=""pollOptionen"">" & vbcrlf
Return = Return & "Du hast schon abgestimmt.<br>"
Return = Return & "hier kannst du die Ergebnisse sehen."
Return = Return & "</td>"
Return = Return & "</tr>" & vbcrlf
end if
Return = Return & "<tr><td> "
Return = Return & "<input type=""hidden"" name=""ID"" value=""" & VoteID & """>" & vbcrlf
Return = Return & "</td></tr>"
if Request.Cookies("poll") ("ID") <> VoteID then
Return = Return & "<input type=""hidden"" name=""Formular"" value=""abgestimmt"">" & vbcrlf
Return = Return & "<tr><td class=""pollSpeichern" & """>"
Return = Return & "<a href=""javascript:document.poll.submit();"" class=""pollSpeichern"">" & Vote_Text_Save & "</a>"
Return = Return & "</td></tr>" & vbcrlf
end if
Return = Return & "<tr><td class=""pollErgebniss"">"
Return = Return & "<a href=""javascript:document.Ergebniss.submit();"" class=""pollErgebniss"">" & Vote_Text_Result & "</a>"
Return = Return & "</td></tr></table>" & vbcrlf
Return = Return & "</form>" & vbcrlf
end if
Return = Return & "<form name=""Ergebniss"" METHOD=""POST"" ACTION=""" & ResultPage & """>" & vbcrlf
Return = Return & "<input type=""hidden"" name=""ID"" value=""" & VoteID & """>" & vbcrlf
Return = Return & "</form>" & vbcrlf
ShowVoteForm = Return
End Function
Public Function getVoteQuestion()
Dim Return
sqlCommand = "SELECT Frage FROM vote WHERE ID=" & VoteID
RsVote.open sqlCommand, dbVote
Return = RsVote.Fields("Frage")
RsVote.Close
getVoteQuestion = Return
End Function
Public Function ShowVoteResult()
Dim Return
sqlCommand = "SELECT COUNT(ID) FROM Antworten WHERE VoteID=" & VoteID
set RsVote = dbVote.execute(sqlCommand)
CountAntworten = RsVote.Fields(0)
RsVote.close
sqlCommand = "SELECT ID, Text FROM Optionen WHERE VoteID=" & VoteID & " ORDER BY ID"
set RsVote = dbVote.execute(sqlCommand)
Return = "<table border=""0"" cellpadding=""5"" class=""pollErgSeite"">" & vbcrlf
Return = Return & "<tr><td class=""UnfrageErgSeite"" colspan=""3"">"
Return = Return & "<FONT class=""pollErgSeite"">"
Return = Return & "Insgesamt wurden " & CountAntworten & " Abstimmungen gezählt."
Return = Return & "</FONT>"
Return = Return & "</td></tr>"
Do While Not RsVote.EOF
Set RsResult = Server.CreateObject("ADODB.Recordset")
sqlCommand = "SELECT COUNT(ID) FROM Antworten WHERE VoteID=" & VoteID & " AND OptionenID=" & RsVote.Fields("ID")
RsResult.open sqlCommand, dbVote
Prozent = 100 / CountAntworten * RsResult.Fields(0)
Return = Return & "<tr>" & vbcrlf
Return = Return & "<td nowrap class=""pollErgSeite"">" & vbcrlf
Return = Return & RsVote.Fields("Text") & vbcrlf
Return = Return & "</td>" & vbcrlf
Return = Return & "<td nowrap class=""pollErgSeite"">" & vbcrlf
Return = Return & "<IMG SRC=""" & Bar_Pic & """ ALT=""" & FormatNumber(Prozent,2) & "%"" height=""10"" width=""" & Result_Width / 100 * Prozent & """>" & vbcrlf
Return = Return & "</td>" & vbcrlf
Return = Return & "<td nowrap class=""pollErgSeite"">" & vbcrlf
Return = Return & RsResult.Fields(0) & " x " & " == "
Return = Return & FormatNumber(Prozent,2) & "%" & vbcrlf
Return = Return & "</td>" & vbcrlf
Return = Return & "</tr>" & vbcrlf
RsResult.close
Set RsResult = Nothing
RsVote.MoveNext
loop
Return = Return & "</table>" & vbcrlf
RsVote.close
set RsVote = Nothing
ShowVoteResult = Return
End Function
End Class
%>Hier aber doch nochmal die poll.asp, auch wenn ich daran nichts verändert habe.
--------------
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<!--#include file="inc_config.asp"-->
<!--#include file="inc_vote.asp"-->
<LINK REL="stylesheet" HREF="poll.css">
<BODY>
<%
Dim myVote
Set myVote = New Vote
With myVote
.VoteID = Request.Form("ID")
if Request.Form("Formular") = "abgestimmt" then
.InsertVote
end if
if Request.Form("Formular") = "abgestimmt" then
Response.Write "Danke für Ihre Abstimmung.<br>"
end if
Response.Write .getVoteQuestion
.Bar_Pic = "/poll/images/black.gif"
.Result_Width = "400"
Response.Write .ShowVoteResult
End With
Set myVote = Nothing
%>
</BODY>
</HTML>Vielelicht erkennt ein Profie unter euch auf den ersten Blick schon den Fehler. Kann ja nur irgendwas kleines sein.
Ich verstehs jedenfalls nicht.
Bitte schreibt was ihr dazu denkt...
Greets da Sven
