webForumDet fria alternativet
Logga in / Bli medlem

Tipsa funktion med jmail problem..

ASP

24 svar · 482 visningar · startad av tank82

tank82Medlem sedan feb. 2003210 inlägg
Frågan#1

Tja,
Detta är en "tipsa" funktion till min nyhetssida som jag håller på med, men problemet är den att när man tipsar om en nyhet så får den inte med QueryStringen, utan bara www.domän.com/index.asp Fast det kanske inte går?

Om det är omöjligt så kanske det går att koppla ihop den med nyhets databasen på något vis, men hur?

<%
franmail = Request.Form("franmail")
tillnamn = Request.Form("tillnamn")
tipsasida = Request.Form("tipsasida")
dittnamn = Request.Form("dittnamn")

Set jmail = Server.CreateObject("JMail.Message")
 
jmail.AddRecipient "" & tillnamn & ""
jmail.From = "" & franmail & ""
Jmail.Priority = 1
jmail.Subject = "Tips!"
jmail.appendHTML "<font face=verdana><b>"
jmail.appendHTML "" & dittnamn & " vill tipsa dig om.... :"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<br>"
JMail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
jmail.appendHTML "<br>"
jmail.appendHTML "<font face=verdana><b>"
jmail.appendHTML "Mvh"
jmail.appendHTML "<br>"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<font face=verdana>"
jmail.appendHTML "</font>"

jmail.Send( "mail.domän.com" )

Response.Redirect "index.asp?nav=tipsklart"
%>
solbulleMedlem sedan mars 20015 287 inlägg
#2

JMail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & Request.Querystring

tank82Medlem sedan feb. 2003210 inlägg
#3

Tack

Det funka "nästan" =) det blir ingen ? efter index.asp

http://www.domän.com/index.aspnav=tips

solbulleMedlem sedan mars 20015 287 inlägg
#4

Jaja, kasta in det då:

JMail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" &Request.Querystring

Du skulle kunna fixa en If-sats som kollar om det finns en querystring och kasta på det då o inte annras. (=din hemläxa ;) )

tank82Medlem sedan feb. 2003210 inlägg
#5

hehe tack =)

tank82Medlem sedan feb. 2003210 inlägg
#6

nu blir det

http://www.domän.com/index.asp?nav=tipsskicka

finns det något sätt så den tar url:en från sidan "innan" tipsskicka alltså tips.

öhh vad skrev jag? hmm jaja =)

aljs avataraljMedlem sedan sep. 2002538 inlägg
#7

Ja, på din "orginalsida" skriver du i forumuläret:

<form>
....
<input type="hidden" value="<%Request.Querystring%>" name="strang">
....
</form>

Sedan hämtar du den på din skicka sida somvanligt dvs:

<%
Dim StrStrang
strStrang = Request.Form("Strang")

'# Och byt: 
'#Mail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" &Request.Querystring
'#Till:

Mail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & strStrang & "?" &Request.Querystring

%>
tank82Medlem sedan feb. 2003210 inlägg
#8

nix det funka inte =(

ska inte:
Mail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & strStrang & "?" &Request.Querystring

vara: (?)
jmail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & strStrang & "?" &Request.Querystring

för om jag skickar med mail.appendHTML så får jag felmeddlande, men om jag skickar med jmail.appendHTML så funkar det, fast resultatet är samma dvs http://www.domän.com/index.asp?nav=tipsskicka

EDIT: felmeddelandet:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/tipsa/skicka.asp, line 19

solbulleMedlem sedan mars 20015 287 inlägg
#9

Testa människa! :)

Jo, alj skrev nog bara fel, nog ska det vara jmail... osv.

aljs avataraljMedlem sedan sep. 2002538 inlägg
#10

Äh, JMail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & strStrang
Skall det ju vara :)

tank82Medlem sedan feb. 2003210 inlägg
#11

ok ska testa =)

tank82Medlem sedan feb. 2003210 inlägg
#12

*gråter* nej det funkar inte =)

Hej!
Skulle bara tipsa dig om en nyhet som du hittar på adressen:
http://www.domän.com/index.asp?
Hälsningar, tank82

solbulleMedlem sedan mars 20015 287 inlägg
#13

Vad är det egentligen som strular nu?
alj's Mail kan du glömma, den får han hålla på med bäst han vill på sitt håll, du ska skriva likadant som du gjort i resten av ditt script.

jmail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & strStrang

Iofs får du väl kanske inte rätt adress där? Nu får du väl med dig "skickasidans" adress och inte den där du inkluderade(?) tipsfunktionen?
Om så är fallet, byt ut:
Request.ServerVariables("URL")
mot
Request.ServerVariables("HTTP_REFERER")

aljs avataraljMedlem sedan sep. 2002538 inlägg
#14

solbulle skrev:

Vad är det egentligen som strular nu?
alj's Mail kan du glömma, den får han hålla på med bäst han vill på sitt håll, du ska skriva likadant som du gjort i resten av ditt script.

jmail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & strStrang

Det var väl just det jag skrev att det skulle vara eller vad menar du?

solbulleMedlem sedan mars 20015 287 inlägg
#15

alj skrev:

Senast redigerad av alj 2003-04-13 klockan 18:50

Åfan! ;)

aljs avataraljMedlem sedan sep. 2002538 inlägg
#16

solbulle skrev:

alj skrev:

Senast redigerad av alj 2003-04-13 klockan 18:50

Åfan! ;)

Jaja, såg att jag skrivit Mail istället för JMail :r ..

solbulleMedlem sedan mars 20015 287 inlägg
#17

Precis, jag tror nog att du har rätt i din kod, precis som jag skrev längre upp, men däremot tror jag inte att tank82 observerade det och därmed fick han fel i sitt script.
:)

tank82Medlem sedan feb. 2003210 inlägg
#18

nää grabbar nu fattar jag inget =)
kolla igenom koden och ändra så det blir rätt..

Tack för att ni hjälper en nybörjare som mig ;)

tipsa.asp

<html>
<head>

</head>
<body><form method="post" action="index.asp?nav=tipsskicka">
  <table width="100%" border="0">
    <tr> 
      <td> 
        <div><font face="Verdana">Tipsa om denna artikel/nyhet.</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><hr size="1" color="#000000"></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana">Ditt namn:</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="text" size="35" name="dittnamn"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="hidden" name="franmail" value="autosend@domän.com"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana">Din väns e-postadress:</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="text" size="35" name="tillnamn"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><input type="hidden" value="<%Request.Querystring%>" name="strang"> <input type="submit" name="submit" value="Tipsa"></font></div>
      </td>
    </tr>
  </table>
</form></body></html>

skicka.asp

<%
Dim StrStrang
strStrang = Request.Form("Strang")
franmail = Request.Form("franmail")
tillnamn = Request.Form("tillnamn")
tipsasida = Request.Form("tipsasida")
dittnamn = Request.Form("dittnamn")

Set jmail = Server.CreateObject("JMail.Message")
 
jmail.AddRecipient "" & tillnamn & ""
jmail.From = "" & franmail & ""
Jmail.Priority = 1
jmail.Subject = "Tips!"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "Hej!<br>Skulle bara tipsa dig om en nyhet som du hittar på adressen:"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<br>"
jmail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & strStrang
jmail.appendHTML "<br>"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "Varma hälsningar, " & dittnamn & ""
jmail.appendHTML "<br>"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<br>"
jmail.appendHTML "<br>"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "OBS Du kan INTE svara på detta mail."
jmail.appendHTML "<br>"
jmail.appendHTML "</b></font>"

jmail.Send( "mail.domän.com" )

Response.Redirect "index.asp?nav=tipsklart"
%>
aljs avataraljMedlem sedan sep. 2002538 inlägg
#19

På den sidan man skall tipsa om lägger du in detta:

<form method="post" action="skicka.asp">
  <table width="20%" border="0">
    <tr> 
      <td> 
        <div><font face="Verdana">Tipsa om denna artikel/nyhet.</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><hr size="1" color="#000000"></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana">Ditt namn:</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="text" size="35" name="dittnamn"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="hidden" name="franmail" value="autosend@domän.com"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana">Din väns e-postadress:</font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><font face="Verdana"><input type="text" size="35" name="tillnamn"></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div><input type="hidden" value="<%Request.Querystring%>" name="strang"> <input type="submit" name="submit" value="Tipsa"></font></div>
      </td>
    </tr>
  </table>
</form>

skicka.asp

<%
Dim StrStrang
strStrang = Request.Form("Strang")
franmail = Request.Form("franmail")
tillnamn = Request.Form("tillnamn")
tipsasida = Request.Form("tipsasida")
dittnamn = Request.Form("dittnamn")

Set jmail = Server.CreateObject("JMail.Message")
 
jmail.AddRecipient "" & tillnamn & ""
jmail.From = "" & franmail & ""
Jmail.Priority = 1
jmail.Subject = "Tips!"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "Hej!<br>Skulle bara tipsa dig om en nyhet som du hittar på adressen:"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<br>"
jmail.appendHTML "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & strStrang
jmail.appendHTML "<br>"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "Varma hälsningar, " & dittnamn & ""
jmail.appendHTML "<br>"
jmail.appendHTML "</b></font>"
jmail.appendHTML "<br>"
jmail.appendHTML "<br>"
jmail.appendHTML "<font face=arial><b>"
jmail.appendHTML "OBS Du kan INTE svara på detta mail."
jmail.appendHTML "<br>"
jmail.appendHTML "</b></font>"

jmail.Send( "mail.domän.com" )

Response.Redirect "index.asp?nav=tipsklart"
%>
tank82Medlem sedan feb. 2003210 inlägg
#20

Nu ger jag upp :(
det funkar inte.....

det ska bli:
http://www.domän.com/index.asp?nav=tips

inte:
http://www.domän.com/index.asp?
eller:
http://www.domän.com/index.asp?nav=tipsskicka

285 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
154 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)