telefonbetalning

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
%>