ASP upload problem

4 svar · 262 visningar · startad av morris_the_cat 19 apr. 2005

morris_the_catMedlem sedan feb. 200553 inlägg

19 apr. 2005 07:54#1

Hej!

Jag får inte min kod att fungera som jag vill. Även om jag laddar upp en bild så uppfylls bara villkoret efter <% Else %> är det nån som kan hjälpa mig?


<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save(Server.MapPath("bilder"))

' Obtain file object
Set File = Upload.Files("BILD")

If Not File Is Nothing Then
Set Connect = Server.CreateObject("ADODB.Connection")
   Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/max.mdb")
   ' If you use SQL Server, the connecton string may look like this:
   ' Connect = "Provider=SQLOLEDB;Server=SRV;Database=mydb;UID=sa;PWD=xxx"
   ' Use ADO Recordset object
   Set rs = Server.CreateObject("adodb.recordset")

   ' Optional: check whether this file already exists using MD5 hash
   'Hash = File.MD5Hash
  ' rs.Open "SELECT * from bilder WHERE Hash='" & Hash & "'", Connect, 2, 3
   'If Not rs.EOF Then
      'Response.Write "This file already exists in the database."
     ' Response.End
  ' End If
  ' rs.Close

   ' Reopen recordset to insert file
   Addera = "SELECT * FROM bilder" 
   rs.Open Addera, Connect, 2, 3
   rs.AddNew
   rs("rubrik") = Upload.Form("rubrik")
   rs("kategori") = Upload.Form("kategori")
   rs("subkategori") = Upload.Form("subkategori")
   rs("stylist") = Upload.Form("stylist")
   rs("modell") = Upload.Form("modell")
   rs("hair_make") = Upload.Form("hair_make")
   rs("sokvag") = Upload.Form("sokvag") & File.Filename
   rs("sokvag_thumb") = Upload.Form("sokvag_thumb") & File.Filename
   
   rs.Update
   rs.close
   connect.close%>
   
<% Set Connect = Server.CreateObject("ADODB.Connection")
   Connect.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/max.mdb")
   Set rs = Server.CreateObject("adodb.recordset")
   Addera = "SELECT * FROM bilder order by id DESC" 
   rs.Open Addera, Connect, 2, 3 %>
   
<table width="500" border="0" cellpadding="5" cellspacing="0" bgcolor="#CCCCCC">
  <tr>
	<td class="vanligtext"><strong>F&Ouml;LJANDE BILD HAR LAGTS TILL: </strong><br>
	  <br>
	  <strong>Rubrik:</strong><br>
	  <% =rs("rubrik") %><br>
	  <strong>Kategori:</strong><br>
	  <% =rs("kategori") %><br>
	  <strong>Jobb:</strong><br>
	  <% =rs("subkategori") %><br>
	  <strong>Stylist:</strong><br>
	  <% =rs("stylist") %><br>
	  <strong>Modell:</strong><br>
	  <% =rs("modell") %><br>
	  <strong>H&aring;r &amp; Make:</strong><br>
	  <% =rs("hair_make") %><br><br>
	  <strong>Photo:</strong><br>
	  <img src="<% =Mid(rs("bild"), 7)%>" alt=""><br>
	  <a href="make_thumb.asp">[SKAPA THUMBNAIL]</a>
	</td>
  </tr>
</table>
   <% rs.close
   connect.close%>

<% Else %>
<% Response.Write("Ingen bild har lagts till!!")%>

<%End If%>

</html>

Martin

@ndersMedlem sedan juni 200032 969 inlägg

19 apr. 2005 08:21#2

hur ser formuläret ut?

morris_the_catMedlem sedan feb. 200553 inlägg

19 apr. 2005 08:26#3

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#C2C287" text="#000000" id="all" leftmargin="10" topmargin="10" marginwidth="10" marginheight="10" link="#660000" vlink="#660000" alink="#660000">
<form action="add_picture_2.asp" method="post" enctype="multipart/form-data">
Bild:<br>
<input type="file" name="sokvag"><br>
Rubrik:<br>
<input type="text" name"rubrik"><br>
Kategori:<br>
<select name="kategori">
<option value="advertising">Advertising</option>
<option value="editorial">Editorial</option>
<option value="portrait">Portrait</option>
<option value="others">Others</option>
<option value="picture_around_the_pictures">Pictures around the pictures</option>
</select><br>
Jobb:<br>
<input type="text" name"subkategori"><br>
Stylist:<br>
<input type="text" name"stylist"><br>
Modell:<br>
<input type="text" name"modell"><br>
Hår & Make:<br>
<input type="text" name"hair_make"><br>
<input type="hidden" value="bilder/" name="sokvag">
<input type="hidden" value="bilder/thumbs/" name="sokvag_thumb">
<input type="submit" name="Submit" value="Lägg till!">
</form>
</body>
</html>

@ndersMedlem sedan juni 200032 969 inlägg

19 apr. 2005 08:30#4

Ditt file-fält i formuläret heter inte BILD, det heter sokvag.

morris_the_catMedlem sedan feb. 200553 inlägg

19 apr. 2005 08:41#5

Tack @nders! Tänk va blind man kan vara!