---
title: "telefonbetalning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/135077-telefonbetalning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-10-01T13:33:31.000Z"
updated: "2005-10-01T23:01:16.000Z"
replies: 2
views: 284
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/135077-telefonbetalning"
---

# telefonbetalning

## #1 — WebbisNet, 2005-10-01T13:33Z

jag använder en tjänst för telefonbetalning där man får en betalkod, den betalkoden skriver man in i en textruta och skickas till ett script som kontrollerar köpkoden mot den kod man angav, får bara inte koden att kollas rätt

Här är formen:
\<form name="telefon" action="telefon100.asp" method="post"\>
\<input type="text" name="txtKopkod" maxlength="7" size="7"\>
\<input type="submit" value="ok"\>
\</form\>

Här är telefon100.asp som man skickas till för kontroll

```
<%
Dim OKflag
Dim ErrorString
OKflag = false
ErrorString = "Fel vid läsning av parametrar"

if Request.QueryString.Count > 0 then

'------------------------------------------------------------------------------------------------------------
'*Här tar du emot dom parametrar vi skickar

prn = Request.QueryString("PRN")             '*Här tar du emot det 0939-nummer som ringts (11 Siffror)
input = Request.QueryString("INPUT")        '*Här tar du emot köpkoden som kunden fått (6 siffror)
message = Request.QueryString("MESSAGE")        '*Här tar du emot smsmeddelande (max 170 tecken)
caller = Request.QueryString("CALLER")   '*Här tar du emot kundens telefonnr ink riktnummer
rate = Request.QueryString("RATE")          '*Här tar du emot samtalets kostnad (4-5 siffror)
OKflag = true
'------------------------------------------------------------------------------------------------------------
'*Om parametrarna lästs in korrekt så lägger vi in dom i databasen

if OKflag [B]and request.form("txtKopkod") = input[/B] then

set Connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("inloggning.mdb") & ";pwd=;"

strSQL = "insert into samtal(PRN,INPUT,MESSAGE,CALLER,RATE,DATE) VALUES('"&prn&"','"&input&"','"&message&"','"&caller&"','"&rate&"','"&date&"')"
strSQL1 = ("Update tblUsers_samtal SET vip=true, webblajv=webblajv+100 WHERE CALLER = "&caller)

Connect.Execute(strSQL)

'*Stäng databaskoppling

Connect.Close
Set Connect = Nothing

Response.write "OK"
Response.end

'-------------------------------------------------------------------------------------------------------------
'*Om parametrar lästs in felaktigt så lämna ett felmeddelande

else
Response.write ErrorString
Response.end
end if

'-------------------------------------------------------------------------------------------------------------
'*Om felaktigt anrop av sidan gjorts så lämna ett felmeddelande

else
Response.write "felaktigt anrop"
end if
%>
```

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

## #2 — emission, 2005-10-01T22:57Z

Var kom formuläret in i bilden? 

if OKflag and request.form("txtKopkod") = input then

kan aldrig bli sant

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

## #3 — WebbisNet, 2005-10-01T23:01Z

löste det på ett annat sätt, kör manuellt så kan jag erbjuda fler tjänster på samma nummer

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/135077-telefonbetalning