---
title: "Tipsa en kompis + admin"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77333-tipsa-en-kompis-admin"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Denniss"
published: "2003-05-18T17:06:38.000Z"
updated: "2003-05-22T19:36:15.000Z"
replies: 9
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/77333-tipsa-en-kompis-admin"
---

# Tipsa en kompis + admin

## #1 — Denniss, 2003-05-18T17:06Z

Hej!

Är det nån som kan fixa det ? Här nedan får ni koden till en "tipsa en kompis" script.

Och jag vill ha en admin funktion där jag som admin kan logga in och kolla vem som har skickat flest tips.Typ statisik på det.

```
<FORM METHOD="post" ACTION="tipsa_kompis.asp">
<input type="text" name="to_name"><BR>
<input type="text" value="@" name="to_email"><BR>
<input type="text" name="from_name"><BR>
<input type="text" value="@" name="from_email"><input type="submit" value="skicka">
</form>

<%
'On Error Resume Next
Dim oMail, strFrom, strTo, strSubject, strTxt1, strTxt2, strTxt3

strFrom = "DIN_MAIL@SERVER.COM"
strTo = Request.Form("to_email")
strSubject = "--- TIPS PÅ EN BRA SIDA ---"
strTxt1 = Request.Form("to_name")
strTxt2 = Request.Form("from_name")

Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.Send strFrom, strTo , strSubject, + chr(10) + "Hej " + strTxt1 + "!" + chr(10) + strTxt2 + " vill tipsa dig om denna sida:" + chr(10) + "HTTP://WWW.DIN.WEBADRESS.COM/" + chr(10) + chr(10) + "Med vänliga hälsningar," + chr(10) + strTxt2 + " DITT SIDNAMN" + chr(10)
%>

<p align="center"><font face="Verdana" color="#FF0000"><b><font size="4">Tack!</font><br>
Ditt tips är nu skickat!</b></font>
```

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

## #2 — crisse6, 2003-05-18T17:10Z

du far ju spara det i databas eller liknande och sen kolla om personen finns med if-sats eller nat, om ja sa uppdaterar du bara det anvandarnamnet (?), annars lagg in ny post med anvandarnamn och lagg till +1 i faltet som sager hur manga man har skickat. 

okej? :D

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

## #3 — Denniss, 2003-05-18T17:25Z

Hmm. Kan du skriva koden med det du menade ? jag är inte så HIGH på det.

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

## #4 — Denniss, 2003-05-18T18:41Z

Någon som kan fixa det ?

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

## #5 — KoTTeN, 2003-05-18T18:56Z

```
' ## Hämtar post från databasen där from_name är det inskrivena
Set RecSet = Server.CreateObject("ADODB.Recordset")	
SQL = "SELECT from_name FROM Tavling WHERE from_name = " & Request.Form("from_name") & ""
RecSet.Open SQL, Connect, 3, 3 

' ## Om en post hittas uppdateras denna med +1 skickat mail
If Not RecSet.eof then
  SQL02 = "UPDATE Tavling SET AntSkickade = AntSkickade+1 WHERE from_name = " & Request.Form("from_name") & ""
  Connect.Execute SQL02,,128

' ## Annars läggs en ny post till i databasen
Else
  Set RecSet02 = Server.CreateObject("ADODB.Recordset")	
  SQL02 = "INSERT INTO Tavling ( Namn, AntSkickade, AnvIPStatus, AnvIPUnderStatus, AnvIPnummer, AnvIPDatum ) VALUES( '" & Request.Form("from_name") & "', 1)"
  RecSet02.Open SQL02, Connect, 3, 3 

  RecSet02.Close
  Set RecSet02 = Nothing
End If

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
```

Något sånt kanske? Sen får du givetvis ändra namnen så dom passar din databas. 
Skulle inte du köra med Jmail föresten? Det du har nu är ju CDONTS.

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

## #6 — Denniss, 2003-05-19T20:08Z

Kan nån fixa det i JMAIL?

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

## #7 — crisse6, 2003-05-19T20:36Z

hehe..... du far faktiskt soka lite!

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

## #8 — pirajan, 2003-05-20T13:35Z

Om alla skulle vara så lata som du Denniss :e, så skulle ju ingen kunna svara på dina frågor. Försök att leta lite efter äldre trådar och lista ut ngt själv...

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

## #9 — Denniss, 2003-05-22T17:04Z

Finns ingen sån färdig script ?

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

## #10 — OveRRidE, 2003-05-22T19:36Z

> **Denniss skrev:**
>
> Finns ingen sån färdig script ?

Det är det som är tjusningen med spaghetti-ASP. Förvänta dig aldrig att det finns färdiga lösningar för det du letar efter. ;)

En sökning på JMail i forumet, ett besök på <https://www.dimac.net> samt kanske lite knåp i din editor hjälper dig? :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77333-tipsa-en-kompis-admin