Request.Form ? (tipsa funktion)

Jepp det är "den där killen som inte fattar nått" igen ;)

Nu är det så att jag håller på och trixar med en "tipsa om nyhet" funktion, och jag har då kört fast.

Mitt problem är att jag vill plocka ut ID och sedan skicka den till en sida (popup) med ett formulär där man kan fylla i namn, mailadress osv

Så här långt har jag kommit, allt fungerar förutom att inget ID läggs till på slutet i mailet.

Resultatet jag vill ha är http://www.domän.nu/index.asp?page=nyhet&ID=1234

Kan något hitta felet och fixa till det?

ps
Tyskland vs Sverige 1-1 (vem vinner?)
ds

[b]Denna kod ligger på en sida som genererar en nyhet: (och även den enda sidan med db koppling om det nu spelar någon roll)[/b]

<input type="hidden" name="strang" value="<%=Request.Form("ID")%>"><form action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input value="Tipsa" src="tipsa.gif" name="submit" type="image" style="border:0px;"/>

<form method="post" action="kolla.asp">
<input type="hidden" name="strang" value="<%=Request.Form("Strang")%>">
<input type="text" size="40" name="franmail" value="Här fyller du i din e-postadress!">
<input type="text" size="40" name="frannamn" value="Här fyller du i ditt namn!">
<input type="text" size="40" name="tillnamn" value="Här fyller du i din kompis namn!">
<input type="text" size="40" name="tillmail" value="Här fyller du i din kompis e-postadress!">
<input type="submit" name="submit" value="Tipsa"></form>

<%
Dim StrStrang
strStrang = Request.Form("Strang")
franmail = Request.Form("franmail")
frannamn = Request.Form("frannamn")
tillnamn = Request.Form("tillnamn")
tillmail = Request.Form("tillmail")

Set jmail = Server.CreateObject("JMail.Message")
 
jmail.AddRecipient "" & tillmail & ""
jmail.From = "" & franmail & ""
Jmail.Priority = 1
jmail.Subject = "Tips om en nyhet"
jmail.appendText "Hej!" & vbCrLf & "Tips om nyhet!"
jmail.appendText vbCrLf
jmail.appendText "http://" & Request.ServerVariables("SERVER_NAME") & "/" & "index.asp?page=nyhet&ID=" & strStrang
jmail.appendText vbCrLf & "Mvh, " & frannamn & ""
jmail.appendText vbCrLf & vbCrLf & vbCrLf
jmail.appendText "så är det"

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

Response.Redirect "done.asp"
%>

Snart har en helt timme gått och varken Solbulle, cyprys, Sebbe eller någon annan utav dom andra genierna här på wF har någon lösning, konstigt ;) hehe

Ja... du har ingen <input name="ID"> och jag antar att du kanske egentligen vill sätta din första input till

<input type="hidden" name="strang" value="<%=Request.[b]QueryString[/b]("ID")%>">

Så tycker jag att det borde bli... :)

Jag kan väl försöka hjälpa dig där medan dem andra tittar på fotboll ;)

Det kan haka upp sig ibland med bokstäverna... skriv Request.Form("strang") istället för Request.Form("Strang") och se om det gör någon skillnad.

ps.
Sverige förlorade :l
ds.

Tillägg\\ Förresten så måste du ha input-tagen inom <form> och </form>

Så? då blir det en massa konstiga tecken i adressfältet =/

<form><input type="hidden" name="strang" value="<%=Request.QueryString("ID")%>"><form action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input value="Tipsa" src="tipsa.gif" name="submit" type="image" style="border:0px;"/></form>

Ja... du har ingen <input name="ID">

Ok? borde jag ha det, och i så fall, vart? ;)

Nja, men för att du ska kunna få ett värde från Request.Form("ID") måste du ha en input med det namnet...

Jag vet inte varifrån du vill hämta ditt ID-värde, så jag kan inte svara på vart du ska ha det någonstans.

Nja, men för att du ska kunna få ett värde från Request.Form("ID") måste du ha en input med det namnet...

Jag vet inte varifrån du vill hämta ditt ID-värde, så jag kan inte svara på vart du ska ha det någonstans.

Jag vill hämta den ifrån denna sida:

<table cellpadding="1" cellspacing="0" width="100%" border="0">

<%
Dim SQL1, SQL2, NewsID, Rs1, Rs2
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

NewsID = Request.QueryString("ID")

If len(trim(NewsID)) = 0 Then

	SQL1 = "SELECT rubrik, datum, id FROM nyhetartikel Order By id desc"
	Set Rs1 = Conn.Execute(SQL1)

	If Rs1.Eof Then
	response.write("<tr><td>Här var det tomt..</td></tr>")
	Else
		do until Rs1.Eof %>
	<tr>
	<td width="20%" valign="top"><%=FormatDateTime(RS1("datum"),2)%>
	</td>
	<td width="80%"><a href="index.asp?avdelning=dok&ID=<%=RS1("ID")%>"><%If Len(RS1("rubrik")) > 60 Then%><%=Left(RS1("rubrik"),60)%>...<%Else%><%=RS1("rubrik")%><%End If%></a>
	</td>
	</tr>
		<% Rs1.MoveNext
		Loop
	End If

	Set Rs1 = nothing

End If

If len(trim(NewsID)) > 0 AND IsNumeric(NewsID) Then

	SQL2 = "SELECT rubrik, texten, datum FROM nyhetartikel WHERE id=" & NewsID
	Set Rs2 = Conn.Execute(SQL2)

	if Rs2.Eof then
		response.write("<tr><td>Här var det tomt..</td></tr>")
	else %>

	<tr>
	<td><font color="#000000"><a class="rubrikstor2"><%=RS2("rubrik")%></td>
	</tr>
	<tr>
	<td height="20"></td>
	<tr>
	<td colspan="2"><font face="Verdana"><%=Replace(RS2("texten"),vbCrLf, "<br>")%></td>
	</tr>
	<tr>
	<td height="5"></td>
	<tr>
	<tr>
	<td bgcolor="#000000" height="1"></td>
	</tr>
	<tr>
	<td height="5"></td>
	</tr>
	<tr>
	<td valign="top" width="100%">
	<table border="0" width="100%" cellspacing="0" cellpadding="0">
	<tr>
	<td width="90%"></td>
	<td width="5%" align="right"><form action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input type="hidden" name="strang" value="<%=Request.QueryString("ID")%>"><input value="Tipsa" src="tipsa.gif" name="submit" type="image" style="border:0px;"/></form></td>
	<td width="5%" align="right"><img src="skrivut.gif" width="22" height="19" border="0"></td>
	</tr>
	</table>
	</td>
	</tr>

	<% End if

End If
%>

</table>

Om du lägger till:

method="post"

i formulärets kod så slipper du hela harangen i adressraden.

Om du lägger till:

method="post"

i formulärets kod så slipper du hela harangen i adressraden.

Hmm har jag inte det? eller hur/vart menar du? ;)

<form method="post" action="kolla.asp">

Jo det har du på en av sidorna, jag syftade på den sidan som öppnar själva popupen, men det kanske inte var där det knasade?
http://www.webforum.nu/showthread.php?s=&postid=731402#post731402

Jo det har du på en av sidorna, jag syftade på den sidan som öppnar själva popupen, men det kanske inte var där det knasade?

Jo allt knasar! =(
Om jag använder mig utav koden nedan, så kommer ingen popup upp utan bara en massa konstiga tecken! vad göra? :)

<form><input type="hidden" name="strang" value="<%=Request.QueryString("ID")%>"><form method="post" action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input value="Tipsa" src="gfx/small_tipsa.gif" name="submit" type="image" style="border:0px;"/></form>

Blir galen, varför ska man vara så dålig på detta :(

(men ni är bäst ;) )

Använd den här :p

<form method="post" action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input type="hidden" name="strang" value="<%=Request.QueryString("ID")%>"><input value="Tipsa" src="gfx/small_tipsa.gif" name="submit" type="image" style="border:0px;"/></form>

Uj,

<form method="post" action="tipsa/index.asp" target="popup" onsubmit="window.open('', 'popup', 'width=200, height=200');"><input value="Tipsa" src="gfx/small_tipsa.gif" name="submit" type="image" style="border:0px;"/></form>

Det var lite mycket av det goda i den raden tror jag.

weee!!! Guld grabbar! tackar och bugar :)

ps
guld vet jag inte, med silver iaf ;)
ds