---
title: "Hur koppla en databas till TellusPay?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152695-hur-koppla-en-databas-till-telluspay"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MrsGoth"
published: "2006-10-18T12:26:57.000Z"
updated: "2006-10-23T13:58:36.000Z"
replies: 13
views: 979
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/152695-hur-koppla-en-databas-till-telluspay"
---

# Hur koppla en databas till TellusPay?

## #1 — MrsGoth, 2006-10-18T12:26Z

Jag är helt ny här på forumet och är i dagligdags webbdesigner. Men jag har tagit mig vatten över huvudet och ska försöka implementera kortbetalning i den webbshop som företaget som jag jobbar på har. jag har redan gjort om hela desigenen på sidan och nu har vi valt Samport för att göra våra betalningar. Hela vår hemsida/webbshop är kodad i ASP. Inte av mig dock utan av en annan person.

Nu till mitt problem. Jag har en webbshop redan, den är klar och funktionell. Men jag vill lägga till att man ska kunna betala med kort. I dagslägen kan man endast betala  mot faktura eller i förskott. Jag har skapat ett demokontor hos Samport och laddat ner en exemplfil från dem och implementerat den. Den fugerar som den ska, men jag får inte dit någon data från databasen. Där det borde så mitt namn står det "fornamn" alltså det namnet som jag kallar på förnamn från databasen.

Jag kan verkligen inte ASP alls och jag fattar inte vad jag gör för fel. Supportkillen på Samport är skitotrevlig och vägrar hjälpa mig. Kan någon vänlig själ förklara för mig vad det är jag ska göra? Ska jag skriva ASP-koden i Samports ASP-fil eller ska jag kalla på Samportdatan i vår ASP-fil? Normalt hämtar jag ju data från databasen genom att skriva =RecSet("fornamn"). Men TellusPay har en egen XML-standard som gör att jag ska skriva \<fornamn\> istället. Men jag fattar inte hur jag ska få dessa två att funger ihop. Jag fattar att jag på något sätt måste ha både och i mitt dokument, men hur?

Snälla, kan någon förklara innan mitt huvud sprängs.   :(

(Jag har en bild som förklarar vad jag menar, men jag verkar inte kunna infoga den här...)

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

## #2 — tydal, 2006-10-18T12:34Z

Har aldrig använt TellusPay, men titta på hur deras exempel-XML-fil ser ut och skapa en likadan utifrån det du har i databasen.

Det kanske ska stå så här:

\<fornamn\>Kalle\</fornamn\>
\<efternamn\>Karlsson\</efternamn\>

Och då får du ju ut det genom att skriva:

\<fornamn\>\<%=RecSet("fornamn")%\>\</fornamn\>
\<efternamn\>\<%=RecSet("efternamn")%\>\</efternamn\>

För att hjälpa dig mer behöver jag nog få se lite filer...

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

## #3 — Peter S, 2006-10-18T12:36Z

Hej och välkommen till wF!  :bire 

Ladda upp filen genom att trycka på "Hantera bifogade filer" -\> (bläddra efter aktuell fil) -\> "Ladda upp" -\> (stäng popupfönstret) -\> (skicka svar).

I "Hantera bifogade filer" står vilka filändelser som accepteras. Är filändelsen ej godkänd kan du zippa och bifoga den.

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

## #4 — MrsGoth, 2006-10-18T13:47Z

Jag har ingen xml-fil direkt som jag kan kolla på. Hittade en exempelfil på deras webmanager, men det var inte några exempel på det i den. Jag har iallafall lagt upp lite filer i mitt filbibliotek nu. Vet inte om ni kommer åt dem. Har inte klurat ut hur sidan funkar än. ;) 

Men det du säger tydal verkar ju vettigt, men det funkade inte när jag försökte. Jag är nog inte tillräckligt bra på ASP för att komma på hur jag ska göra det själv. :-(

Hela lösningen är sk Hostad lösning, dvs. kunden slussas till Samports sida där hela betalningen görs och sen slussas kunden tillbaka igen så det ska ju vara enkelt. Det som jag borde kunna göra rent logiskt är ju att se till att det som kunden lägger i sin kundvagn förs vidare till sidan där kunden betalar med kort. Inte så svårt i mitt huvud... Massor värre att utföra visade det sig....

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

## #5 — doggelito, 2006-10-19T17:57Z

Tjena!
Har det löst sig?

Kortfattat så funkar tellus så här:
Steg 1.
I din shop när kunden väljer kreditkort och klickar på "skicka order" så skickar du kunden till en aspsida på din webplats för att samla ihop all info.
Typ

```
<input type="button" onclick="window.location.href='go_to_tellus.asp' ;" />
```

Steg 2.
På den sidan får du sedan hämta upp alla produkter samt kundinfo och lägga in allt i Tellus förbestämda parametrar och sedan slussa användaren till tellus server.
Ex.

```
<%
	'Hämta alla produkter och kundinfo från databas och lägg in i respektive parameter.
	Dim objHTTP, strHTML

	Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objHTTP.Open "GET", "https://secure.telluspay.com/WebOrder/add/?TP01=???&TP700=???&TP701=???&TP740=???", False

	objHTTP.Send
	strHTML = objHTTP.responseText
	Set objHTTP = Nothing

	If err.number = 0 then
		Response.redirect "https://secure.telluspay.com/WebOrder/?"& Trim(strHTML)
	Else
		Response.Write "General Error!<br>" & err.description
	End If

%>
```

Vilka paramterar som finns får du kolla i manualen, men t.ex. förnamn är: TP8021.

Testa lite å återkom om du inte får till det för jag vet också hur besväliga supporten hos Tellus kan vara! :)

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

## #6 — MrsGoth, 2006-10-20T07:17Z

Nja, inte precis. Jag fick hjälp igår av en kompis som kan ASP och vi löste väl lite av problemet, men det funkar fortfarande inte. Det vi har problem med är att komma på hur vi ska få vår databasinformation att komma över tillsammans med resten av datan.
Så här har vi gjort nu (eller rättare sagt jag, vi gjorde på ett annat sätt... )

Det här gjorde vi först (jag har lagt in det som står i blått, men jag kommer inte ihåg om det var så där som det skulle se ut.)

```
[red]'Data = Data & RecSet("artikelnr") & [blue]"<artnum>:" [/blue] & RecSet("storlek") & ", " & RecSet("farg") & [blue]"<description>:" [/blue] & RecSet("antal") & [blue]"<qty>:" [/blue] & RecSet("pris") & [blue]"<price>:"".[/blue]00"[/red]
```

Då fick vi ett general error.... 

...då höftade jag lite och gjode så här istället:

```
Data = Data & "<artnum>"= & RecSet("artnum"): & "<description>"= & RecSet("artikel"): & "<qty>"= & RecSet("antal"): & "<price>"= & RecSet("pris") ".00"
```

Det funkar inte heller, nu får jag kompileringsfel....   x( (vilket inte är så konstigt eftersom jag inte kan skriva ASP... ;) )

Varför ska det vara så krångligt??? Livet ska vara lätt och jag ska förstå allt... ;)

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

## #7 — @nders, 2006-10-20T07:45Z

Ta bort = som du lagt till före &-tecknen när du lägger samman strängen.

mvh

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

## #8 — MrsGoth, 2006-10-20T08:09Z

Det funkade inte bättre. Jag tror jag fortsätter på raden som min ASP-kille gjorde. Det känns mer säkert. ;-)

```
Data = RecSet("artikelnr") & "<artnum>:" & RecSet("storlek") & "<description>:" & RecSet("antal") & "<qty>:" & RecSet("pris") & "<price>:"".00"
```

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

## #9 — doggelito, 2006-10-20T08:49Z

Du har missförstått stränghanteringen. :)
Man bygger inte ihop en xmlsträng utan en vanlig textsträng.
För att skicka in produkterna, skriv så här:

```
<%
	Dim Data
	Data = "1:Testorder:1:1000,2:Testorder2:1:2000,T:Extra produktrad,T:Ytterligare en produktrad"

...
	Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objHTTP.Open "GET", "https://secure.telluspay.com/WebOrder/add/?TP740=" & Data & " & Fortsätt_här med_alla_andra_parametrar, False
%>
```

Produktraden anges i detta format: \<artnum\>:\<description\>:\<qty\>:\<price\>
Samt att man kan ange textrad med: T:\<Description\>
 
Så, för att skicka in produkter samt förnamn skriver du så här:

```
<%
	Dim Data
	Data = "1:Testorder:1:1000,2:Testorder2:1:2000,T:Extra produktrad,T:Ytterligare en produktrad"

...
	Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objHTTP.Open "GET", "https://secure.telluspay.com/WebOrder/add/?TP740=" & Data & "&TP8021=Nisse", False
%>
```

Förstått!? :)

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

## #10 — MrsGoth, 2006-10-20T11:10Z

Jo, det har jag förstått. :-) Det funkar också. Det fick jag att funka rätt så omgående. Men kruxet är ju hur jag får in min kundkorg istället för parametrarna. Jag känner mig verkligen totalt korkad just nu. Jag stirrar på koden och fattar verkligen inte hur jag ska gå tillväga. Det känns som att jag missar något vitalt i det hela. Det är säkert något väldigt fundamentalt enkelt, men min hjärna har gått i baklås... ;-)  Någonstan måste jag ju säga att \<artnum\> = artikelnr och att det ska hämtas från vår databas. och att TP8021 = fornamn och det ska hämtas från vår kunddatabas. Eller? Gah... att det är fredag hjälper inte till det heller...

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

## #11 — doggelito, 2006-10-20T11:37Z

Det är bara att göra en vanlig databashämtning, har du koll på hur man gör det?
Annars finns 1000 svar här under aspforumet som tar upp databashämtningar.

Ex.

```
<%
     Dim Data, FirstName, objRs
     Set objRs = objConn.execute("SELECT ArticleNe, ProductName, Quantity, Price, FirstName FROM Tabell")
     FirstName = objRs("FirstName")
     Do Until objRs.Eof
          Data = Data & objRs("ArticeNr") & ":" & objRs("ProductName") & ":" & objRs("Quantity") & ":" & objRs("Price") 
          If objRs.AbsolutePosition < objRs.RecordCount Then Data = Data & ","
          objRs.MoveNext
     Loop

     ...

     objHTTP.Open "GET", "https://secure.telluspay.com/WebOrder/add/?TP740=" & Data & "&TP8021=" & FirstName, False
%>
```

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

## #12 — MrsGoth, 2006-10-20T14:25Z

Jo, det är gjort, men utan framgång. När man kör koden bara för sig själv så får vi upp infon, men så fort vi stoppar in den i asp-filen som kom från Samport så blir det fel. Det enda som kommer upp är General Error. Inkompatibla typer.

Så här ser ASP-koden ut nu: Det kanske är något fel i den?

```
Dim Data
Data = ""
Do Until RecSet.EOF
Do Until RecSet.EOF
	Data = Data & RecSet("artikelnr") & ":" & RecSet("storlek") & " " & RecSet("farg") & ":" & RecSet("antal") & ":" & RecSet("pris") & ","
	RecSet.MoveNext
Loop
```

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

## #13 — doggelito, 2006-10-20T18:16Z

Ja, lite fel är det! ;)
Ändra till:

```

Dim Data
Data = ""
Do Until RecSet.EOF
	Data = Data & RecSet("artikelnr") & ":" & RecSet("storlek") & " " & RecSet("farg") & ":" & RecSet("antal") & ":" & RecSet("pris") & ","
	RecSet.MoveNext
Loop

Data = Left(Data, Len(Data)-1)
...
```

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

## #14 — MrsGoth, 2006-10-23T13:58Z

Nu är det fixat. :-) Äntligen så funkar det. Nu är det bara lite annat som ska funka med... ;-)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/152695-hur-koppla-en-databas-till-telluspay
