20 svar · 436 visningar · startad av cupy
Jag får följande felmeddelande:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID ='.
/asp/n4/zzzz/real/re/scripts/visa3.asp, line 24
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("omni.mdb")&";"
Addera = "Select * From files WHERE ID = "& rubrikID & " Order By id desc"
line 24 --> RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Allt fungerade till jag lagt till en tipsa kompis skript!
Den här.
<% If Request.QueryString("action") = "posta" Then %>
<form name="posta" action=visa3.asp?posta2 method="post">
ditt namn:<br>
<input type="text" name="dname" size="30" value="<%= dname %>"><br>
din email:<br>
<input type="txt" name="demail" size="30" value="<%= demail %>"><br>
kompisens mail:<br>
<input type="text" name="epost" size="30" value="<%= epost %>"><br>
<input type="hidden" name="subiect" size="30" value="bla bla">
<input type="hidden" name="body" size="30" value="Hej <%= epost %>
Någon som du känner vill tipsa om en sida: http//www.sida.se <%= dname %> och en annons [url]http://www.sida.se/visa3.asp?id=[/url]<%= RecSet("ID") %>">
<input type="submit" name="eposta" value="Skicka"></form>
<% End If
If Request.QueryString("action") = "posta2" Then
Name = Request.Form("dname")
SenderEmail = Request.Form("demail")
Subject = "Din kompis vill tipsa dig " & Request.Form("subject")
Recipient = Request.Form("epost")
Body = Request.Form("body")
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Below you should enter your own SMTP-server
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = "Hej! " & epost & " Någon du känner vill tipsa om en sida " & dname & ": [url]http://www.vvvvvv.se[/url]"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute
If Err.Number<>0 then
Response.Write "<br><b>ERROR! Något blivit fel, försök igen!</b>"
Else
Response.Write "<br>Meddelandet har skickats till din vän!"
End if
set JMail = nothing
%> <% Else %>
Då måste du väl skicka rubrikid som ett hidden fält eller så då va.
Kan inte ha o göra med att du har <% End If %> inne i gröten där, och sen i slutet här ser man en <% Else %>.. ska det vara så?
Ibland kan t om blanksteg spela roll... det här kanske kan vara fel
WHERE ID = "& rubrikID & " Order By id desc"
skriv
WHERE ID = " & rubrikID & " Order By id desc"
istället ;)
Vet ej!
Vad jag än gör det blir alltid samma felmeddelande som pekar på den här
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Hmm... Jag fattar inte riktigt
Av felet verkar det som att din ID är en sträng och då måste du skriva
Addera = "Select * From files WHERE ID = '" & rubrikID & "' Order By id desc"
Sen har du för övrigt en ; uppe på Connect.Open som jag inte tror du behöver så mycket.
-Eitraz
Jag kör din version av sql sats nu och fick den här:
(Addera = "Select * From files WHERE ID = '" & rubrikID & "' Order By id desc")
Error Type:
(0x80020009)
Exception occurred.
...../visa3.asp
Jaa, då var ju troligen inte ID en sträng ;)
Det mest logiska på det här problemet är att rubrikID inte är definierat över huvud taget.. då får man det felet..
-Eitraz
jo men alltså det funkar dvs. tills jag lagt till en typ tipsa om sidan script och sidan funkar men så fort jag vill klicka fram den tipsa om scripten då blir det kaos
Tack för hjälpen , jag vet inte , kanske jag ger upp den här och kör med separata sidor
OK!
[kod]<%
rubrikID = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver=MySQL;server=xxxx;uid=;pwd=;database=xxxx"
'=========här väljer man hur listas alla info från databasen by id eller by namn======
Addera = "Select * From files WHERE ID = " & rubrikID & " Order By id desc"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<table style="TABLE-LAYOUT: fixed" align="center" cellspacing="2" cellpadding="0" border="0" WIDTH="600" bgcolor="#ff8C00">
<tr>
<td align="center"><h1><a href="faq/default.asp">FAQ</a></h1></td>
</tr>
<table WIDTH="600" border="0" cellspacing="0" cellpadding="0">
<tr >
<td ><br><img src="mpix/toll.gif" width="35" height="50" border="0" alt="mail"> <A HREF="#SVARA"><img src="../mpix/pil44.gif" width="11" height="9" border="0" alt="maila"><font color="#000000" size="3"><b> Svara på inlägg!</b></font></a><br><font class="meny"><h3><a href="visa3.asp?action=posta"><img src="../mpix/pil44.gif" width="11" height="9" border="0" alt="maila"><font color="#000000" size="3"><b>Tipsa en kompis!</b></font></a><p><font class="meny"><h3><%=RecSet("rubrik")%></h3></font></p></td>
<table>
<tr>
<td>
\<% If Request.QueryString("action") = "posta" Then %\>
\<form name="posta" action=visa3.asp?posta2 method="post"\>
ditt namn:<br>
<input type="text" name="dname" size="30" value="<%= dname %>"><br>
din email:<br>
<input type="txt" name="demail" size="30" value="<%= demail %>"><br>
kompisens mail:<br>
<input type="text" name="epost" size="30" value="<%= epost %>"><br>
<input type="hidden" name="subiect" size="30" value="annonser på imarknad.se">
<input type="hidden" name="subiect" size="30" value="<%= rubrikID %>">
<input type="hidden" name="body" size="30" value="Hej_<%= epost %>_
Någon som du känner vill tipsa om en sida: http//www.sida.com <%= dname %>">
<input type="submit" name="eposta" value="Skicka"></form>
<% End If
If Request.QueryString("action") = "posta2" Then
Name = Request.Form("dname")
SenderEmail = Request.Form("demail")
Subject = "Din kompis vill tipsa dig " & Request.Form("subject")
Recipient = Request.Form("epost")
Body = Request.Form("body")
Set JMail = Server.CreateObject("JMail.SMTPMail")
' Below you should enter your own SMTP-server
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = "Hej! " & epost & " Någon du känner vill tipsa om en sida " & dname & ": http://www.sida.com"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute
If Err.Number<>0 then
Response.Write "<br><b>ERROR! Något blivit fel, försök igen!</b>"
Else
Response.Write "<br>Meddelandet har skickats till din vän!"
End if
set JMail = nothing
%><% Else %>
</tr>
<tr>
<td ><font color="#000000" size="2">datum: __<%=RecSet("datum")%> <br>av: _______ <%=RecSet("namn")%>__ </td></font>
</tr>
<tr>
<td ><font color="#000000" size="2">från: _______<%=RecSet("kommun")%></td></font>
</tr>
<tr>
<td ><font color="#000000" size="2">telefon: __<%=RecSet("telefon")%></td></font>
</tr>
</table> <table valign="center" width=600 border="0" cellspacing="0" cellpadding="0" border="0" >
<tr><td align="center"><hr Size=1 NOSHADE Color="#000000"><table width="500" valign="center" border="0"><tr><td ><% Response.Write (Replace(RecSet("inlagg"),VbCrLf,"<br>"))%></td></tr></table>
</tr></td></table>
<table width=600 border="0" height="105" cellspacing="1" cellpadding="1" valign="center">
<tr ><td align="center"><%IF trim(RecSet("filename") & "") <> "" then%>
<a href="uploaded/<%= replace(RecSet("filename"),"_th", "_or") %>"><img src="uploaded/<%= RecSet("filename") %>" border=0 alt="<%= rubrik %>"></a>
<%end if %></td></tr>
</table>
<br>
<br>
<%
Session("namn") = Request("namn")
'If it's been sent a "senduser" variable it means this is a reply to someone, so put the value in a variable
if Request.QueryString("senduser") <> "" then
senduser = Request.QueryString("senduser")
else
'If there's no querystring with senduser in, make the variable empty
senduser = ""
end if
'****************** %>
<form action="skicka.asp" method="post" name="mailformcheck">
<table width="600" cellspacing=0 cellpadding=2 border=0 solid bordercolor="#FF8C00" align="center">
<tr>
<th bgcolor="#FF8C00" width="591"><A NAME="SVARA"></A><font color="#FFFFFF"><b>Svara på inläg !</b></font>
</th>
</tr>
<tr>
<td width="591" height="257">
<table cellspacing=0 cellpadding=0 align="right" width="590" border=0>
<tr>
<td width="1"></td>
<td width="273">
</td>
</tr>
<tr>
<td></td>
<td width="273"><font face="arial,helvetica" size=2 color="#000000"><b> - Din e-post adress:_</b></font><font color="#000000"><b><input type="text" name="dinmail" size="25" maxlength="100" maxlength="50" value=""></b></font></td>
</tr>
<tr>
<td></td>
<td width="273"><font color="#000000"><b><textarea name="body" cols="48" rows="10" >...... På följande länk http://www.sidan.com/visa3.asp?id=\<%= RecSet("ID") %> ... :bire
Hmm.. vad jag fattar så hela kören visa3.asp va?
När du postar formuläret till visa3.asp?posta2 så hänger inget rubrikID med.. alltså blir rubrikID = "" och det gillar INTE databasen.. (du måste för övrigt skriva visa3.asp?action=posta2 oxå)
NÄr du läser in rubrikID kan du ju skriva efter att
If NOT IsNumeric(rubrikID) Then
rubrikID = 0
Else
rubrikID = INT(rubrikID)
End If
var det första jag kunde komma på som var fel det här ;)
är ju en del text
o lite till.. vid
action=visa3.asp?posta2 kan du ju skriva om till
action=visa3.asp?action=posta2&ID=<%=rubrikID%> då alltså..
Nu funkar det ! Jag glömde [&ID=<%=rubrikID%>]
lägga till i länken oxå och i formen
1000 tack Eitraz!! :birp :bire