27. september 2006 - 16:58
Der er
4 kommentarer
Afvikling af pearl script fra asp
Jeg har en kontakt formular hvor form action kalder en "store" funktion der gemmer data i vores MS sql tabel- ingen problemer der. Men vi ønsker også at sende en mail til personen der har tilmeldt sig og herefter redirect til en anden side.
Derfor har vi købt et .pl script fra email-form.com som virker super. Men hvordan kan jeg kalde dette script efter jeg har kørt min "store" function. Normalt bliver det jo kaldt via form action = xxxx men den kalder jo min "store" funktion.
Er gået kold her. Hjælp!!
27. september 2006 - 20:19
#2
Det lyder som en god ide, men jeg er ikke helt sikker på hvordan du vil fyre kaldet af i iframe funktion - Har aldrig leget med den funktion. Vil den være usynlig for bruger af websiden?. Og kan denne bide kode lægge oppe i database scriptet efter jeg closer forbindelse?
27. september 2006 - 22:12
#3
Ja sagtens. På din side med perl script åbner du vel en ny database forbindelse.
Du kan gøre din iframe helt usynlig for brugeren med lidt style, det er det mindste problem. Til at starte med kan du bare gøre sådan her:
<iframe name="iframe" src="dinPerlFilHer" height="100%" width="100%" frameborder="0" marginwidth="0" marginheight="5" scrolling="yes">Browseren understøtter ikke iframe</iframe>
28. september 2006 - 16:44
#4
Tja, glemt lige at sige, at det skulle ligge oppe i koden før html afsnittet. Vedlægger lige kopi af koden så du kan se det.
<%
If (CStr(Request("MM_insert")) = "Formmail") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_Sql_STRING
MM_editCmd.CommandText = "INSERT INTO dbo.CITSIGNUP (COMPANY, CONTACTNAME, EMAIL, RECID) VALUES (?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 30, Request.Form("Firmanavn")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 30, Request.Form("Kontaktperson")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 80, Request.Form("Email")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("RecID"), Request.Form("RecID"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
<iframe name="iframe" src="/cgi-bin/formprocessorpro.pl" height="100%" width="100%" frameborder="0" marginwidth="0" marginheight="5" scrolling="no"></iframe>
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "Events.html"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
