Url

Hvordan får jeg urlèn med fra side 1 til side 2

På side 1 kalder jeg side 2 med:
<a href=\"java script:window_open(\'popop.asp\', 600, 400)\"><img border=\"0\" src=\"../images/ikon_send.gif\" alt=\"Fortæl en ven\">

På side 2 kal urlèn lande i en tekstbox ClientUrl:
<% @LANGUAGE = VBScript %>
<% Option Explicit %>

<html>


<head>
    <title>Client Questionaire</title>
</head>

<%
Dim strName, strEmail, strQry, strVname, strVemail, strUrl 
strVname = Trim(Request.Form(\"ClientVname\"))
strVemail = Trim(Request.Form(\"ClientVemail\"))
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQry = Trim(Request.Form(\"ClientQry\"))
strUrl  = Trim(Request.Form(\"ClientUrl\"))


If (strVname <> \"\" And strVemail <>\"\") Then
    Dim objMail, aRecipients
   
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
    objMail.From = strEmail
    objMail.To = strVemail
    objMail.Subject = \"Fra en god vend \" & strName
        objMail.Body = \"Fra en god vend  \" 
    objMail.send
   
   
   
    Response.Write \"beskeden er sendt  !  \" 
    Set objMail = Nothing
   
Else
%>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<input type=\"HIDDEN\" name=\"ClientSalgsopstilling\" size=\"9\" value=\"<%=request.querystring(\"Salgsopstilling\")%>\" style=\"font-size: 8 pt; border-style: solid\">

...og så et passende sted:

<script language=\"JavaScript\" >
    document.write(url);
</script>



<div align=\"center\">
  <center>
<TABLE BORDER=0 width=\"300\">
  </center>
  <center>
  </center>
  <center>
<tr><td width=\"530\" colspan=\"4\">
        <hr color=\"#0066FF\" size=10>
  </td></tr>
<tr><td width=\"530\" colspan=\"4\">Send til en vend</td></tr>
<tr><td width=\"530\" colspan=\"4\">
  <font face=\"Arial,Helvetica,sans-serif\" size=\"1\">For at sende et link til
  denne side, udfyld navn og e-mail felterne herunder, og evt en besked hvis du
  har lyst. Tryk derefter på send.</font>
  </td></tr>
<tr><td width=\"91\" rowspan=\"7\" valign=\"top\">
    <p style=\"word-spacing: 0; margin: 0\"><font color=\"#3366CC\">Kommentar(bemærkninger)</font></p>
    <p style=\"word-spacing: 0; margin: 0\"><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=5></TEXTAREA></p>
    <p>&nbsp;
   
   
   
   


   
   
   
   
    </td><td width=\"111\"></td><td width=\"404\" colspan=\"2\" rowspan=\"7\" valign=\"top\">
    <p style=\"word-spacing: 0; margin: 0\"><font color=\"#3366CC\">Vend`s navn&nbsp;</font></p>
    <p style=\"word-spacing: 0; margin: 0\">   
            <INPUT SIZE=\"27\" NAME=\"ClientVname\" VALUE=\"\"><BR>
    <font color=\"#3366CC\">Vend`s e-mail adresse</font>&nbsp;<BR>
    <input type=\"text\" name=\"ClientVemail\" size=\"27\" tabindex=\"5\"></p>
    <p style=\"word-spacing: 0; margin: 0\"><font face=\"Verdana,Arial,Helvetica\" size=\"1\" color=\"#3366CC\">Dit
    navn</font><BR>
            <INPUT SIZE=\"27\" NAME=\"ClientName\" VALUE=\"\"><BR>
    <font face=\"Verdana,Arial,Helvetica\" size=\"1\" color=\"#3366CC\">Din e-mail
    adresse</font>&nbsp;</p>
    <p style=\"word-spacing: 0; margin: 0\"><INPUT NAME=\"ClientEmail\" VALUE=\"\" SIZE=27>
    <p style=\"word-spacing: 0; margin: 0\">&nbsp;
    <p style=\"word-spacing: 0; margin: 0\"><INPUT TYPE=SUBMIT VALUE=\"Send\">
    <p style=\"word-spacing: 0; margin: 0\">&nbsp;</td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"111\"></td></tr>
<tr><td width=\"428\" colspan=\"3\"><INPUT NAME=\"ClientUrl\" VALUE=\"\" SIZE=44></td><td width=\"94\"></td></tr>
<tr><td width=\"522\" colspan=\"4\">
        <hr color=\"#0066FF\" size=10>
  </td></tr>
</TABLE>
  </center>
</div>
</FORM>

<% End If %>


</html>