---
title: "Problem med \"förhindra-multipostningskod\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45419-problem-med-förhindra-multipostningskod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "trexter.com"
published: "2002-06-07T15:17:39.000Z"
updated: "2002-06-07T16:46:53.000Z"
replies: 5
views: 244
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/45419-problem-med-förhindra-multipostningskod"
---

# Problem med "förhindra-multipostningskod"

## #1 — trexter.com, 2002-06-07T15:17Z

Rädd att jag måste be om hjälp på WF än en gång...

Jag fiskade upp en bit kod här på webforum, för att förhindra multipostning (tryckt flera ggr. på skicka-knappen) i min gästbok, genom sessioner:

```
	If Session("Postat")="" Then 
	Session("Postat")="Japp" 
	Insert into bla bla 
	End If
```

Denna vill jag sedan sätta in i det "riktiga" dokumentet men jag får det inte att fungera. Det som händer är att ingenting postas, även om besökaren inte tryckt på knappen flera ggr!

```
<% Response.Buffer = TRUE %>
<html>
<!-- #include file="adovbs.inc" -->
<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 
	
	
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Addera = "SELECT * FROM gastbok"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
Recset("namn") = Request.Form("namn")
Recset("betyg") = Request.Form("betyg")
Recset("email") = Request.Form("email")
Recset("hemsida") = Request.Form("hemsida")
Recset("hemsida_namn") = Request.Form("hemsida_namn")
Recset("meddelande") = Request.Form("meddelande")
Recset("ipnummer") = Request.ServerVariables("REMOTE_ADDR") 

	RecSet.Update
	RecSet.Close
	Connect.Close
Response.Redirect "http://www.trexter.com/gastbok/"
%> 
</HTML>
```

Permalänk: https://www.webforum.nu/p/45419

## #2 — trexter.com, 2002-06-07T15:36Z

never min, klarade det själv.\*stolt\*

 :h

Permalänk: https://www.webforum.nu/p/691048

## #3 — icaaq, 2002-06-07T15:38Z

Då säger du självklart hur du gjorde så andra kan lära sig :)

Permalänk: https://www.webforum.nu/p/691050

## #4 — trexter.com, 2002-06-07T16:31Z

> *Ursprungligen av icaaq*  **Då säger du självklart hur du gjorde så andra kan lära sig :)**

Självklart!  :) 

```
<% Response.Buffer = TRUE %>
<html>
<!-- #include file="adovbs.inc" -->
<%
[b]	If Session("Postat")="" Then 
	Session("Postat")="Japp"[/b]
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 
	
	
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Addera = "SELECT * FROM gastbok"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
Recset("namn") = Request.Form("namn")
Recset("betyg") = Request.Form("betyg")
Recset("email") = Request.Form("email")
Recset("hemsida") = Request.Form("hemsida")
Recset("hemsida_namn") = Request.Form("hemsida_namn")
Recset("meddelande") = Request.Form("meddelande")
Recset("ipnummer") = Request.ServerVariables("REMOTE_ADDR") 

	RecSet.Update
	RecSet.Close
	Connect.Close
[b]	End If [/b]
Response.Redirect "http://www.trexter.com/gastbok/"
%> 
</HTML>
```

Permalänk: https://www.webforum.nu/p/691058

## #5 — icaaq, 2002-06-07T16:43Z

Men detta betyder att man bara kan posta ett inlägg, och sen måste man ifrån siten så att sessionen försvinner.

Testa att lägga in ett Now() värde när man skriver i gästboken, sen kan du kolla nått spnt här

```
[red]If Session("Postat")="" OR Session("Postat") > DateAdd("S", 30,Now()) Then 
	Session("Postat")=Now()
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\main.mdb" 
	
	
	Set RecSet = Server.CreateObject("ADODB.Recordset")

   Addera = "SELECT * FROM gastbok"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
Recset("namn") = Request.Form("namn")
Recset("betyg") = Request.Form("betyg")
Recset("email") = Request.Form("email")
Recset("hemsida") = Request.Form("hemsida")
Recset("hemsida_namn") = Request.Form("hemsida_namn")
Recset("meddelande") = Request.Form("meddelande")
Recset("ipnummer") = Request.ServerVariables("REMOTE_ADDR") 

	RecSet.Update
	RecSet.Close
	Connect.Close
	Else
Response.Write "Du har alldeles nyss postat ett inlägg!"
End If [/red]
```

Detta är en helt otestad kod men  du kanske fattar galopen :)

Permalänk: https://www.webforum.nu/p/691070

## #6 — trexter.com, 2002-06-07T16:46Z

Sant, men på sidan som man redirectas till så brytar jag alla sessioner med:
session.abandon

Permalänk: https://www.webforum.nu/p/691073

---

Tråden på webben: https://www.webforum.nu/amne/asp/45419-problem-med-förhindra-multipostningskod