Send mail og sriv til database

prøv
Response.Redirect "result.asp?str=" & strqBody

på resultat.asp kan du så hente data ud med

str = request.querystring("str")
str kan du så gemme i din database

Response.Redirect "result.asp?strqbody='" & strqbody & "'"

og på result.asp
strqbody= request.querystring("strqbody")

Jeg kan ikke rigtig får det til at virker. Nu har jeg fundet ud af at skeive til databasen, men jeg modtager ikke en mail:

Side med Form:
<%@ Language=VBScript %>
<%
    Dim strqInitials, strqModule, strqSchedule, strqStatus, objMail, strqBody
     
    strqInitials = Trim(Request.Form("initials"))
    strqModule = Trim(Request.Form("module"))
    strqSchedule = Trim(Request.Form("schedule"))
    strqStatus = Trim(Request.Form("status"))

    'Hvis felterne er udfyldt, så gør et eller andet med data'ene....
      If strqUserInitials <> "" Then

        Set objMail = Server.CreateObject("CDONTS.NewMail")
        objMail.to = "kim@sapworld.dk"
        objMail.From = strqInitials + "@sapworld.dk"
        objMail.Subject = "Registration"
        strqBody = strqBody + "User Initials: " + strqInitials + vbNewLine
        strqBody = strqBody + "Module: " + strqModule + vbNewLine
        strqBody = strqBody + "Schedule: " + strqSchedule + vbNewLine
        strqBody = strqBody + "Status: " + strqStatus + vbNewLine
        objMail.Body = strqBody
        objMail.Send
       
        Set objMail = Nothing

        Response.Redirect "result.asp"    'Husk at oprette siden result.asp
    End If
%>

Selve form'en på siden:
<form action="display1.asp" method="post" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="62%" id="AutoNumber1">
  <tr>
    <td width="104%" colspan="2" bgcolor="#6699CC">
    <p align="center"><font color="#FFFFFF"><b><span lang="da">Report new tips
    or tricks</span></b></font></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">initials</span></td>
    <td width="50%">
    <!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="20" --><input type="text" name="initials" size="20" maxlength="20"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Module:</span></td>
    <td width="50%">
    <!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="80" --><input type="text" name="module" size="80" maxlength="80"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Schedule:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </span></td>
    <td width="50%"><input type="text" name="schedule" size="20"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Status:</span></td>
    <td width="50%"><input type="text" name="status" size="5" maxlength="5"></td>
  </tr>
  <tr>
    <td width="54%">&nbsp;</td>
    <td width="50%">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%" colspan="2">
    <p align="center">
<input type="submit" value="Save"></td>
  </tr>
</table>
<p><br>
<span lang="da">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>
&nbsp;</span></p>
<p>&nbsp;</p>
</form>

Kode på siden result.asp:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open="hcb_scales_tutorial"
strSQL = "Insert into personer (subject, initials) values('" & request.Form("Course_Week") & "', '" & request.Form("Comments") & "')"
' strSQL = "Insert into personer (description) values('" & Request.Form("description") & "')"
'strSQL = "INSERT INTO PERSONER (tc) VALUES('Kim')"
objConn.Execute(strSQL)
objConn.Close
%>

Hisen

Kim

Jeg opretter det lige som nyt spørgsmål

Kim