varför kan jag inte maila

6 svar · 516 visningar · startad av WebbisNet 3 sep. 2003

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan3 sep. 2003 16:02#1

varför kan jag inte få med mig mina data från mitt formulär till min cdonts

<!-- #include file="inc/conn.inc" -->
<%

Dim Conn
Dim RS
Dim SQL

ID = Request.Querystring("ID")

SQL = "SELECT * FROM kontakt WHERE ID=" & ID & ""
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)
%>
<%
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "" & Epost & "" & vbcrlf
objMail.From = "stefan@webbisen.com" & vbcrlf
objMail.Subject = "" & Rubrik & "" & vbcrlf
objMail.Body = "" & Meddelande & "" & vbcrlf
objMail.Host = "[mailservern]"
objMail.Send
Set objMail = Nothing
%>
<%
	RS.MoveNext
	RS.Close 
	Conn.Close	
%>

jag får felmeddelande
ADODB.Recordset.1 error '80004005'

SQLState: 42000
Native Error Code: 1064
[TCX][MyODBC]You have an error in your SQL syntax near '' at line 1

/Mail/send.asp, line 14

kung_bjMedlem sedan sep. 20027 inlägg

3 sep. 2003 16:12#2

ja jävlar... testa lite själv? felet är ju uppenbart

JosefMedlem sedan mars 20023 561 inlägg

3 sep. 2003 16:16#3

kung_bj skrev:

ja jävlar... testa lite själv? felet är ju uppenbart

Sådant spåk undanbedes. Läs mer i reglerna.:OO

Kanske så här:

<!-- #include file="inc/conn.inc" -->
<%

Dim Conn
Dim RS
Dim SQL

ID = Request.Querystring("ID")

SQL = "SELECT * FROM kontakt WHERE ID = " & CInt(ID)
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)

Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "" & Epost & "" & vbcrlf
objMail.From = "stefan@webbisen.com" & vbcrlf
objMail.Subject = "" & Rubrik & "" & vbcrlf
objMail.Body = "" & Meddelande & "" & vbcrlf
objMail.Host = "[mailservern]"
objMail.Send
Set objMail = Nothing

RS.Close 
Conn.Close	
%>

Varifrån får du variablerna Epost, Rubrik, Meddelande? :q

Sedan har du Rs.MoveNext fast du bara har en post i ditt recordset. Då är ju den raden helt onödig.

kung_bjMedlem sedan sep. 20027 inlägg

3 sep. 2003 16:18#4

>Sådant spåk undanbedes. Läs mer i reglerna.

jaja, han fick hjälp på en annan sida men typ vägrade lyssna.

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 sep. 2003 16:19#5

Josef skrev:

kung_bj skrev:

ja jävlar... testa lite själv? felet är ju uppenbart

Sådant spåk undanbedes. Läs mer i reglerna.:OO

Kanske så här:

<%

Dim Conn
Dim RS
Dim SQL

ID = Request.Querystring("ID")

SQL = "SELECT * FROM kontakt WHERE ID = " & CInt(ID)
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set RS = Conn.Execute(SQL)

Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "" & Epost & "" & vbcrlf
objMail.From = "stefan@webbisen.com" & vbcrlf
objMail.Subject = "" & Rubrik & "" & vbcrlf
objMail.Body = "" & Meddelande & "" & vbcrlf
objMail.Host = "[mailservern]"
objMail.Send
Set objMail = Nothing

RS.Close 
Conn.Close	
%>
Varifrån får du variablerna Epost, Rubrik, Meddelande? :q

Sedan har du Rs.MoveNext fast du bara har en post i ditt recordset. Då är ju den raden helt onödig.

variablerna kommer från mitt formulär innan den skickas till min cdonts

JosefMedlem sedan mars 20023 561 inlägg

3 sep. 2003 16:21#6

Men då får du ju använda Request.Form("<Namnet på elementet i formuläret>")

Hur fungerade koden?

WebbisNetMedlem sedan feb. 20032 027 inlägg

3 sep. 2003 16:28#7

Josef skrev:

Men då får du ju använda Request.Form("<Namnet på elementet i formuläret>")

Hur fungerade koden?

det blev lite bättre men nu ska jag försöka fixa resten själv......tack för hjälpen