Tjanare alla ASPare, Har ett problem med Mailinglisten som man kan hämta under kurser & artiklar. Fungerar bra till man skall skicka mailet då kommer Sidan kan inte visas upp. Vad är det för fel? Skickar aspkoden här nedan. Sidan kan inte visas? Verkar som om du postar till en sida som inte finns, kontrollera stavningen till sidan du postar till (action taggen) ............ Hej. Hej igen. Ett skott i mörkret...sql resp SQL... Inget funkar så jag skickar hela skiten, hoppas ni fattar vad problemet finns.Skulle vara roligt om det funkade. Precis som Ulf säger, kontrollera att filen heter send.asp och ta bort Option Explicit. Testa sedan igen. Ta även bort "Friendly HTTP Message" i din webläsare så ser du vad det är som blir fel. Detta kom upp. Är accept en boolean (Ja/Nej) eller en Text där du trycker in J eller N? Precis som susanne skriver.. får att bugga loss lite och kolla på sql strängen så skriv EFTER den..Pellesoft mailinglist!!
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("list.mdb")&";"
btn = LCase(Request("btn"))
If Btn = "skicka" Then
subject = Request("subject")
message = Request("message")
sql = "select name, email from list where accept = 'J' "
Set Rst = Con.Execute SQL
If Not Rst.Eof Then
Do While Not Rst.Eof
antal = antal + 1
Set cdonts = Server.CreateObject("CDONTS.NewMail")
cdonts.from = "min@adress.com"
cdonts.to = rst("email")
cdonts.subject = subject
cdonts.message = message
cdonts.send
set cdonts=nothing
Rst.MoveNext
Loop
Response.Write "Mailet skickades till " & antal & " mottagare."
Else
Response.Write "Det finns inga prenumeranter som vill ha brev ännu!"
End If
End If
Set Con = Nothing
%>
PS.Cdonts fungerar på servern DSSv: Pellesoft mailinglist!!
Sv: Pellesoft mailinglist!!
sql = "select name, email from list where accept = 'J' "
Set Rst = Con.Execute SQL <----- Denna SQL måste vara på en ny rad för att formuläret skall visas, Det går inte att ha den där den skall vara. Några ideér?? action="send.asp" är rätt stavat och allt. Jag fattar nada.
Kommer upp Expected end of statement med en pil på SQL satsen.Sv: Pellesoft mailinglist!!
Det kan inte vara parenteserna ()???
Såhär:
Set Rst = Con.Execute(SQL)
Sv: Pellesoft mailinglist!!
Testa då att skriva Option Explicit högst upp och dimma alla variablerna.
Det kan lösa mycket ibland...Sv: Pellesoft mailinglist!!
Alltså du stoppar in strängen i sql men sen använder du SQL...de är ju inte samma. Testa med sql istället..
JohanSv: Pellesoft mailinglist!!
<code><%Option Explicit
Dim Connect, btn
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("list.mdb")&";"
btn = LCase(Request("btn"))
If btn = "skicka" Then
subject = Request.Form("subject")
message = Request.Form("message")
sql = "select name, email from list where accept = 'j' "
Set Rst = Connect.Execute(sql)
If Not Rst.Eof Then
Do While Not Rst.Eof
antal = antal + 1
Set cdonts = Server.CreateObject("CDONTS.NewMail")
cdonts.from = "min@adress.com"
cdonts.to = Rst("email")
cdonts.subject = subject
cdonts.message = message
cdonts.send
set cdonts=nothing
Rst.MoveNext
Loop
Response.Write "Mailet skickades till " & antal & " mottagare."
Else
Response.Write "Det finns inga prenumeranter som vill ha brev ännu!"
End If
End If
Set Connect = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Skicka mail</title>
<style><!--.text { font-family: Verdana; font-size: 10px }--></style>
</head>
<body>
<form method="POST" action="send.asp">
<table border="0" width="400" cellspacing="0" cellpadding="0" class="text">
<tr>
<td width="63"><b>Ämne:</b></td>
<td width="321"><input type="text" name="subject" size="45"></td></tr>
<tr><td width="63" valign="top"><b>Meddelande:</b></td>
<td width="321"><textarea rows="8" name="message" cols="38">
</textarea></td></tr>
<tr><td width="63"></td><td width="321"><input type="submit" value="Skicka" name="btn"></td></tr>
</table></form></code>Sv: Pellesoft mailinglist!!
// JompaSv: Pellesoft mailinglist!!
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
på denna rad.
Set Rst = Connect.Execute(sql)
Vad betyder detta??Sv: Pellesoft mailinglist!!
För set Rst = con.execute(sql) innebär att det är fel i SQL-satsen!
//SusanneSv: Pellesoft mailinglist!!
Response.Write sql
Response.End
Kan du ju se om sql strängen ser konstig ut..