Namninsamling??

3 svar · 244 visningar · startad av webbSAJTEN 24 dec. 2003

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan24 dec. 2003 11:56#1

Hejsan!
Skulle vilja skapa en namninsamling.. Kodningen skall vara i ASP..
Kan tyvärr inte så mycket om ASP just nu.. Jag kan lagra saker i en databas men det blir problem när jag ska hämta informationen..

Är det någon som vet vart det finns färdiga script eller vart det finns kurser för just det?

Eller är det någon som skulle kunna göra ett sånt script?
Har den personen en hemsida har den en granterad bannerplats på sidan!

WickmarkMedlem sedan juli 2003162 inlägg

24 dec. 2003 11:58#2

Menar du ett skript som lägger till namn i en databas och sen skriver ut dem?

God Jul förresten :D

webbSAJTENMedlem sedan jan. 2002992 inlägg

24 dec. 2003 12:00#3

Aaa..

Japp, det är så jag menar..
Fast inte direkt som en gästbok..

Det ska vara:

Namn - Ort - Email
Exempel:

Jimmy Grönwall - jimmy.gronwall@chello.se - Haninge
Bosse - Kalle_anka@hotmail.com - Umeo

En sådan uppställning

WickmarkMedlem sedan juli 2003162 inlägg

24 dec. 2003 12:36#4

Hmmm, ganska lätt att fixa en sådan funktion.

<%@Language="VBScript"%>
<%Session.LCID=1053 'sveriges datumformat%>
<!--#include virtual="/adovbs.inc"-->

<%
    dim objConn
    dim objRS
     
      Set objConn = Server.CreateObject("ADODB.Connection")
      Set objRS = Server.CreateObject("ADODB.RecordSet")
        
          objConn.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("/databas.mdb")
if Request.QueryString("p") = "" then
          objRS.Open "SELECT * FROM [namninsamling] ORDER BY ID DESC", objConn, adOpenStatic, adLockReadOnly, adCmdTableDirect
else
          objRS.Open "SELECT * FROM [namninsamling] ORDER BY ID DESC", objConn, adOpenStatic, adOpenStatic, adCmdTableDirect
dim strNamn, strEmail, strOrt
strNamn = Request.Form("namn")
strEmail = request.Form("email")
strOrt = Request.Form("ort")

 if not len(strNamn) <= 1 or len(strEmail) <= 1 or len(strOrt) <= 1 then
    objRS.AddNew
          objRS("namn")= strNamn
          objRS("email")= strEmail
          objRS("ort")= strOrt 
    objRS.Update
 else
   Response.Write("<font color=red>Du måste fylla i all information</font>") 
 end if

end if

if objRS.EOF then
  Response.Write("<em>Inga namn</em>")
else
  Do Until objRS.EOF
     Response.write(objRS("namn")&" - "&objRS("email")&" - "&objRS("ort"))
  Loop
end if

objRS.Close : Set objRS = Nothing
objConn.Close :Set objConn = Nothing

With Response
   .write("<form action=""[b]Dokumentets namn[/b].asp?p=add"" method=""post"" name=""AddName"">"&vbcrlf)
   .write("Namn: <input type=""text"" name=""namn""><br>"&vbcrlf)
   .write("Email: <input type=""text"" name=""email""><br>"&vbcrlf)
   .write("Ort: <input type=""text"" name=""ort"">"&vbcrlf)
   .write("<br><br><input type=""submit"" value="" Lägg till "">")
   .write("</form>")
End With
%>

(kan finnas möjliga skrivfel i koden, kan inte testa den just nu)

Allt du behöver göra är att fixa en access databas, med tabellen "namninsamling" med 3 kolumner: namn, epost och ort.

MVH