Problemer med at smide et link i db

Hvis man tager den addlink delen, så må det vel være her jeg skal gøre noget, men det funker ikke helt som jeg vil:

<%If Request.QueryString("do") = "addlink" Then
  Namn = Fixa(Request.Form("namn"))
  Url  = Request.Form("url")
  If Url <> "" Then
    If Left(Lcase(Url),7) = "http://" Then
      Url = Url
    Else
      Url = "http://" & Url
    End If
  End If
Skal denne ind her ?:--->  Urlorg = Request.Form("urlorg") 
  Info = Fixa(Request.Form("info"))
  Kat  = Request.Form("kat")

Har prøvet dette, men virker stadig ikke......

/cdc

smider 40 points oveni så der nu er 100, da jeg har prøvet alt, og nu ikke kan se skoven for trær mere :o)

//cdc

jeg er ikke helt med på hvad det er du vil. Har du bare lavet et ekstra felt i databasen, der nu skal fyldes med en ekstra url, der kommer fra formen med: Request.Form("urlorg")

jeg har en db og en side med et script hvor jeg skal have smidt to links op
Scriptet er født med et felt til link, så har jeg lavet en kolonne i db som hedder urlorg, den orginale hedder url.
Selve tabellen hedder også url i db.

Mit script har 4 intastningsfelter orginalt.

Link navn - <input name="namn"...
Link url - <input name="url"...
( Link orginalfil )- <input name="urlorg"...
Link Info - <textarea type="text" name="info"...

Har smidt inputfeltet urlorg ind og prøvet i save scriptet at lave om så det skulle fungere, men den smider ikke linket i urlorg op i databasen, feltet bliver tomt.

//cdc

orginal var det 3, jeg vil have 4 sådan var det

Du får ingen fejl?

Så vidt jeg kan se i fin første kode, for du slet ikke sat den ind fra formen, men som du selv skriver i går kl. 17:43, så skal den ind hvor du skriver det, og lidt længere nede. Hvis det er en url, som den ovenfor, skal du vel også tjekke på om der er http foran. prøv det her:

<!--#Include file="inc/settings.asp"-->

<%If Session("LinkAdminIn") <> Secure Then
  Response.Redirect "admin.asp"
Else%>

<%If Request.QueryString("do") = "addlink" Then
  Namn = Fixa(Request.Form("namn"))
  Url  = Request.Form("url")
  If Url <> "" Then
    If Left(Lcase(Url),7) = "http://" Then
      Url = Url
    Else
      Url = "http://" & Url
    End If
  End If
 
  Urlorg = Request.Form("urlorg")
  If Urlorg <> "" Then
    If Left(Lcase(Urlorg),7) = "http://" Then
      Urlorg = Urlorg
    Else
      Urlorg = "http://" & Urlorg
    End If
  End If
 
  Info = Fixa(Request.Form("info"))
  Kat  = Request.Form("kat")

  Set RS=Conn.Execute("Select * From url Where url='" & Url & "'")
  If RS.EOF Then
    Conn.Execute("Insert Into url(namn,url,urlorg,info,kat) Values('" & Namn & "','" & Url & "','" & Urlorg & "','" & Info & "'," & Kat & ")")
    Response.Redirect "admin.asp?action=inne&catId=" & Kat
  Else
    Response.Redirect "admin.asp?action=inne&catId=" & Kat & "&mess=exist&name=" & RS("url")
  End If

ElseIf Request.QueryString("do") = "addkat" Then
  Kat      = Fixa(Request.Form("namn"))
  Sub_kat  = Request.Form("kat")

  Set RS=Conn.Execute("Select * From kat Where kat='" & kat & "'")
  If RS.EOF Then
    Conn.Execute("Insert Into kat(kat,sub_kat) Values('" & Kat & "'," & Sub_kat & ")")
    If Sub_kat <> 0 Then
      Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat
    Else
      Response.Redirect "admin.asp?action=inne"
    End If
  Else
    If Sub_kat <> 0 Then
      Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat & "&mess=exist&name=" & RS("kat")
    Else
      Response.Redirect "admin.asp?action=inne&mess=exist&name=" & RS("kat")
    End If
  End If

ElseIf Request.QueryString("do") = "changelink" Then
  Namn = Fixa(Request.Form("namn"))
  Url  = Request.Form("url")
  If Url <> "" Then
    If Left(Lcase(Url),7) = "http://" Then
      Url = Url
    Else
      Url = "http://" & Url
    End If
  End If

  Urlorg = Request.Form("urlorg")
  If Urlorg <> "" Then
    If Left(Lcase(Urlorg),7) = "http://" Then
      Urlorg = Urlorg
    Else
      Urlorg = "http://" & Urlorg
    End If
  End If
 
  Info = Fixa(Request.Form("info"))
  Kat  = Request.Form("kat")

  Conn.Execute("Update url Set namn='" & Namn & "',url='" & Url & "',urlorg='" & Urlorg & "',info='" & Info & "',kat=" & Kat & " Where id=" & Request.QueryString("id"))
  Response.Redirect "admin.asp?action=inne&catId=" & Request.Form("kat")

ElseIf Request.QueryString("do") = "changekat" Then
  Kat      = Fixa(Request.Form("namn"))
  Sub_kat  = Request.Form("kat")

  Conn.Execute("Update kat Set kat='" & Kat & "',sub_kat='" & Sub_kat & "' Where id=" & Request.QueryString("id"))
  If Sub_kat <> 0 Then
    Response.Redirect "admin.asp?action=inne&catId=" & Sub_kat
  Else
    Response.Redirect "admin.asp?action=inne"
  End If

End If

Conn.Close
Set Conn=Nothing

End If%>

Jeg for denne fejl:

Microsoft JET Database Engine error '80040e57'

The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.

/diverse/link/save.asp, line 32

Skal jo lige huske at læse hvad der står :o) Har lavet det om i db så nu funker det næsten

/cdc

det er godt at høre, hvad er det der ikke virker?

Den bliver smidt op i databasen, så tak for det, men vil lige høre om du kunne hjelpe mig med nogle andre småting som ikke virker som det skal.

Får denne fejl når jeg klikker på linket på siden:
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'id=presse_foto/email_photo.zip'.

/diverse/link/utorg.asp, line 3

Via dette script som er lavet om for at få den urlorg med, så man kan se hvor mange gange der er klicket på den:

<!--#Include file="inc/settings.asp"-->

<%Set RecSet=Conn.Execute("SELECT * From url WHERE id=" & Request.Querystring("id"))
Conn.Execute("UPDATE url SET klickorg=klickorg+1 WHERE ID=" & Request.Querystring("id"))
Response.Redirect RecSet("url")

Conn.Close
Set Conn=Nothing%>

den orginale er anderledes her: klick=klick+1

skal nok smide en lille tjatt points oven i hatten
/cdc

den fixede jeg selv nu her, nu mangler der bare en lille tings som jeg nok kan finde ud af, tak for hjælpen

det var så lidt.

finnes der en nem måde at kunne aflæse filstørrelsen (zipfil) ind i scriptet som viser linket, uden at jeg selv skal kode det ind. zip filerne ligger i en mappe

bruger denne et sted, men den får jeg ikke til at virke: 
- <%=Round(File.Size/1000, 1)%> kb

jeg mener ikke der er en metode til det i ASP. hvis du bruger et upload komponent, så kan du få filstørrelsen ud i forbindelse med upload.

det ved jeg, men det mærkelige er der jeg bruger denne er uden db, den lister bare filerne i en mappe, men dog bliver filerne oploadet via et oploadscript

så skal du overveje om du vil til at gemme oplysningerne i en db, når du uploader dem.

det fine er bare at man bare kan bruge en almidelig ftp client til at smide tingene op i mappen, og når man så lister, så vises størrelsen på filen.
Dette fordi der smides rimelig mange filer op af gangen

helt forståeligt, men umiddelbart har jeg ikke kunne finde en løsning

ok, den tygger jeg lige på